(* Content-type: application/vnd.wolfram.cdf.text *)

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 12.1' *)

(*************************************************************************)
(*                                                                       *)
(*                                                                       *)
(*  This file was created under the Wolfram Enterprise licensing terms.  *)
(*                                                                       *)
(*       For additional information concerning CDF licensing see:        *)
(*                                                                       *)
(*        www.wolfram.com/cdf/adopting-cdf/licensing-options.html        *)
(*                                                                       *)
(*                                                                       *)
(*                                                                       *)
(*************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[      1064,         20]
NotebookDataLength[    202629,       4252]
NotebookOptionsPosition[     39074,       1089]
NotebookOutlinePosition[    196068,       4092]
CellTagsIndexPosition[    195049,       4059]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["CellObjectStyle", "Title",
 Deletable->False,
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{3.7873339882753687`*^9},
 CellTags->{"Name", "TabNext", "TemplateCell", "Title"},
 CellID->863144461],

Cell["Get the style of given CellObject", "Text",
 Deletable->False,
 TaggingRules->{},
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.787334005893466*^9, 3.7873340179495325`*^9}, {
  3.7873343221651416`*^9, 3.7873343223331404`*^9}, {3.788283531919188*^9, 
  3.788283532124168*^9}},
 CellTags->{"Description", "TabNext", "TemplateCell"},
 CellID->997449289],

Cell[CellGroupData[{

Cell[TextData[{
 "Definition",
 Cell[BoxData[
  TemplateBox[{"Definition", 
    Cell[
     BoxData[
      FrameBox[
       Cell[
       "Define your function using the name you gave in the Title line above. \
You can add input cells and extra code to define additional input cases or \
prerequisites. All definitions, including dependencies, will be included in \
the generated resource function.\n\nThis section should be evaluated before \
creating the Examples section below.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoDefinition"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]]]
}], "Section",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Input",
 CellTags->{"Definition", "Function", "TemplateCellGroup"},
 CellID->271561301],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"CellObjectStyle", "[", 
    RowBox[{"cells", ":", 
     RowBox[{"List", "[", 
      RowBox[{"_CellObject", "..."}], "]"}]}], "]"}], ":=", 
   RowBox[{"Map", "[", 
    RowBox[{"CellObjectStyle", ",", "cells"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CellObjectStyle", "[", "cell_CellObject", "]"}], ":=", 
  RowBox[{"CurrentValue", "[", 
   RowBox[{"cell", ",", "\"\<CellStyleName\>\""}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7873340253745728`*^9, 3.787334029861593*^9}, {
  3.7882837314593477`*^9, 3.788283739945444*^9}},
 CellTags->"TemplateCell",
 CellLabel->"In[1]:=",
 CellID->473903061,ExpressionUUID->"3ec47585-955f-4bd7-83d9-60238598b7ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Documentation", "Section",
 CellTags->"Documentation",
 CellID->363488142],

Cell[CellGroupData[{

Cell[TextData[{
 "Usage",
 Cell[BoxData[
  TemplateBox[{"Usage", 
    Cell[
     BoxData[
      FrameBox[
       Cell[
        TextData[{
         "Document input usage cases by first typing an input structure, then \
pressing ", 
          Cell[
           BoxData[
            StyleBox[
             DynamicBox[
              ToBoxes[
               
               If[$OperatingSystem === "MacOSX", "\[ReturnKey]", 
                "\[EnterKey]"], StandardForm], SingleEvaluation -> True, 
              Evaluator -> "System"], ShowStringCharacters -> False]]], 
          " to add a brief explanation of the function\[CloseCurlyQuote]s \
behavior for that structure. Pressing ", 
          Cell[
           BoxData[
            StyleBox[
             DynamicBox[
              ToBoxes[
               
               If[$OperatingSystem === "MacOSX", "\[ReturnKey]", 
                "\[EnterKey]"], StandardForm], SingleEvaluation -> True, 
              Evaluator -> "System"], ShowStringCharacters -> False]]], 
          " repeatedly will create new cases as needed. Every input usage \
case defined above should be demonstrated explicitly here.\n\nSee existing \
documentation pages for examples."}], "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoUsage"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]]]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"},
 CellTags->{"TemplateCellGroup", "Usage"},
 CellID->657272351],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CellObjectStyle", "[", 
  StyleBox["cell", "TI"], "]"}]], "UsageInputs",
 CellChangeTimes->{{3.7873340381276417`*^9, 3.787334042573662*^9}},
 FontFamily->"Source Sans Pro",
 CellTags->{"TabNext", "TemplateCell"},
 CellID->129653703],

Cell[TextData[{
 "returns the style of the given ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    StyleBox["CellObject", "SymbolsRefLink",
     ShowStringCharacters->True,
     FontFamily->"Source Sans Pro"],
    BaseStyle->Dynamic[
      FEPrivate`If[
       CurrentValue["MouseOver"], {
       "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
       "Link"}]],
    ButtonData->"paclet:ref/CellObject",
    ContentPadding->False],
   MouseAppearanceTag["LinkHand"]]], "InlineFormula",
  FontFamily->"Source Sans Pro"],
 " ",
 Cell[BoxData[
  StyleBox["cell", "TI"]], "InlineFormula",
  FontFamily->"Source Sans Pro"],
 "."
}], "UsageDescription",
 CellChangeTimes->{{3.7873340521497154`*^9, 3.787334070244814*^9}},
 CellTags->"TabNext",
 CellID->584004037]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CellObjectStyle", "[", 
  StyleBox["cells", "TI"], "]"}]], "UsageInputs",
 CellChangeTimes->{{3.7873340381276417`*^9, 3.787334042573662*^9}, 
   3.7873340881819105`*^9},
 FontFamily->"Source Sans Pro",
 CellTags->{"TabNext", "TemplateCell"},
 CellID->5715615],

Cell[TextData[{
 "returns the style of the given list of ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    StyleBox["CellObject", "SymbolsRefLink",
     ShowStringCharacters->True,
     FontFamily->"Source Sans Pro"],
    BaseStyle->Dynamic[
      FEPrivate`If[
       CurrentValue["MouseOver"], {
       "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, {
       "Link"}]],
    ButtonData->"paclet:ref/CellObject",
    ContentPadding->False],
   MouseAppearanceTag["LinkHand"]]], "InlineFormula",
  FontFamily->"Source Sans Pro"],
 " ",
 Cell[BoxData[
  StyleBox["cells", "TI"]], "InlineFormula",
  FontFamily->"Source Sans Pro"],
 "."
}], "UsageDescription",
 CellChangeTimes->{{3.7873340521497154`*^9, 3.787334096428956*^9}},
 CellTags->"TabNext",
 CellID->312176784]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Details & Options",
 Cell[BoxData[
  TemplateBox[{"Details & Options", 
    Cell[
     BoxData[
      FrameBox[
       Cell[
       "Give a detailed explanation of how the function is used and \
configured (e.g. acceptable input types, result formats, options \
specifications, background information). This section may include multiple \
cells, bullet lists, tables, hyperlinks and additional styles/structures as \
needed.\n\nAdd any other information that may be relevant, such as when the \
function was first discovered or how and why it is used within a given field. \
Include all relevant background or contextual information related to the \
function, its development, and its usage.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoDetailsOptions"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]]]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Notes",
 CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
 CellID->25317349],

Cell["\<\
This could be implemented more efficiently using \
CurrentValue[cellobj,\"CellStyleName\"] it would avoid reading the content of \
the cell.\
\>", "ReviewerComment",
 Editable->False,
 Deletable->False,
 TaggingRules->{
  "Signature" -> 
   "OEM6eJxLYywWcMlMzyxJzAnOTM9LLCktSnVk0w1mCaksSA3mdc3JySwoyUx2Li0qS9UN5gTTfo\
m5qcGcxanJBUamZtmGusG8cK1gXQJ++XkuqSWpRbmZeZnFQN1AFR6JxRmZeem+qSUZ+\
SnBbMEejkC9usGMQU4K3/+m7r9xPXbZ66L4nY2Pmz9eNw6bdlnf/MGySxFvLuj+\
uwRUFeykEDF9taKBVvQ040wP9z8FLyKXbp7I/a3eN48raZpAQ3rcWgAuMlAX"},
 CellFrameLabels->{{None, 
    Cell[
     BoxData[
      TemplateBox[{
        StyleBox[
         TemplateBox[{"\"WFR Team\""}, "ReviewerCommentLabelTemplate"], 
         ShowStringCharacters -> False, StripOnInput -> False], 
        3.788283574347412`16.331017470094345*^9}, 
       "CommentCellLabelTemplate"]], Background -> None]}, {None, None}},
 CellChangeTimes->{{3.788283575436162*^9, 3.788283618320669*^9}},
 CellTags->{"CommentCell", "ReviewerComment"},
 CellID->615058931,ExpressionUUID->"d318b88a-cc49-4493-b69d-f372c9291866"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Examples",
 Cell[BoxData[
  TemplateBox[{"Examples", 
    Cell[
     BoxData[
      FrameBox[
       Cell[
        TextData[{
         "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \
the most basic use case and describing each example in a preceding text cell.\
\n\nWithin a group, individual examples can be delimited by inserting page \
breaks between them (either using ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"[Right-click]\"", FontFamily -> "Source Sans Pro", 
                FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], 
                FontSize -> 14, StripOnInput -> False], 
               StyleBox[
               "\" \[FilledRightTriangle] \"", FontFamily -> 
                "Source Sans Pro", FontSize -> 13.86, FontColor -> 
                GrayLevel[0.5], StripOnInput -> False], 
               StyleBox[
               "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", 
                FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], 
                FontSize -> 14, StripOnInput -> False]}, "RowDefault"], 
             ShowStringCharacters -> False]]], 
          " between cells or through the menu using ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> 
                "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, 
                StripOnInput -> False], 
               StyleBox[
               "\" \[FilledRightTriangle] \"", FontFamily -> 
                "Source Sans Pro", FontSize -> 13.86, FontColor -> 
                GrayLevel[0.5], StripOnInput -> False], 
               StyleBox[
               "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> 
                "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, 
                StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> 
             False]]], 
          ").\n\nExamples should be grouped into Subsection and Subsubsection \
cells similarly to existing documentation pages. Here are some typical \
Subsection names and the types of examples they normally contain:\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", 
                FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> 
                False]}, "RowDefault"], ShowStringCharacters -> False]]], 
          "most basic function usage\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> 
                "SemiBold", FontSize -> 14, StripOnInput -> False]}, 
              "RowDefault"], ShowStringCharacters -> False]]], 
          "input and display conventions, standard computational attributes \
(e.g. threading over lists)\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> 
                "SemiBold", FontSize -> 14, StripOnInput -> False]}, 
              "RowDefault"], ShowStringCharacters -> False]]], 
          "available options and parameters for the function\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Applications: \"", FontFamily -> "Source Sans Pro", 
                FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> 
                False]}, "RowDefault"], ShowStringCharacters -> False]]], 
          "standard industry or academic applications\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Properties and Relations: \"", FontFamily -> 
                "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, 
                StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> 
             False]]], "how the function relates to other functions\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", 
                FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> 
                False]}, "RowDefault"], ShowStringCharacters -> False]]], 
          "limitations or unexpected behavior a user might experience\n  ", 
          Cell[
           BoxData[
            StyleBox[
             TemplateBox[{
               StyleBox[
               "\"\[FilledSmallSquare] \"", FontColor -> 
                RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], 
               StyleBox[
               "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", 
                FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> 
                False]}, "RowDefault"], ShowStringCharacters -> False]]], 
          "particularly interesting, unconventional, or otherwise unique \
usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
       FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
     Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]]]
}], "Section",
 Editable->False,
 Deletable->False,
 CellTags->{"Examples", "TemplateCellGroup"},
 CellID->487306095],

Cell[CellGroupData[{

Cell["Basic Examples", "Subsection",
 CellTags->"TemplateCell",
 CellID->596536045],

Cell["Give the styles for all cells in a notebook:", "Text",
 CellChangeTimes->{{3.7873341286931305`*^9, 3.7873341618453083`*^9}},
 CellID->13078159],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CellObjectStyle", "[", 
  RowBox[{"Cells", "[", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7873341110240316`*^9, 3.7873341167250633`*^9}},
 CellLabel->"In[3]:=",
 CellID->443871870,ExpressionUUID->"b5b6aac8-1ad9-49ba-b6b7-15a58279dd0c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Title\"\>", ",", "\<\"Text\"\>", ",", "\<\"Section\"\>", 
   ",", "\<\"Input\"\>", ",", "\<\"Section\"\>", ",", "\<\"Subsection\"\>", 
   ",", "\<\"UsageInputs\"\>", ",", "\<\"UsageDescription\"\>", 
   ",", "\<\"UsageInputs\"\>", ",", "\<\"UsageDescription\"\>", 
   ",", "\<\"Subsection\"\>", ",", "\<\"ReviewerComment\"\>", 
   ",", "\<\"Section\"\>", ",", "\<\"Subsection\"\>", ",", "\<\"Text\"\>", 
   ",", "\<\"Input\"\>", ",", "\<\"Output\"\>", ",", "\<\"Text\"\>", 
   ",", "\<\"Input\"\>", ",", "\<\"Output\"\>", ",", "\<\"Text\"\>", 
   ",", "\<\"Input\"\>", ",", "\<\"Output\"\>", ",", "\<\"Section\"\>", 
   ",", "\<\"Subsection\"\>", ",", "\<\"Text\"\>", ",", "\<\"Subsection\"\>", 
   ",", "\<\"Item\"\>", ",", "\<\"Subsection\"\>", ",", "\<\"Output\"\>", 
   ",", "\<\"Subsection\"\>", ",", "\<\"Item\"\>", ",", "\<\"Item\"\>", 
   ",", "\<\"Subsection\"\>", ",", "\<\"Item\"\>", ",", "\<\"Subsection\"\>", 
   ",", "\<\"Text\"\>", ",", "\<\"Subsection\"\>", ",", "\<\"Item\"\>", 
   ",", "\<\"Subsection\"\>", ",", "\<\"Input\"\>", ",", "\<\"Output\"\>", 
   ",", "\<\"Section\"\>", ",", "\<\"Text\"\>", ",", "\<\"Section\"\>", 
   ",", "\<\"Text\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.7873341175350695`*^9, 3.788283746369521*^9},
 CellLabel->"Out[3]=",
 CellID->317573915,ExpressionUUID->"06028bf5-753d-442b-9a56-f1d3c3f2f00d"]
}, Open  ]],

Cell["Get a random cell from this notebook:", "Text",
 CellChangeTimes->{{3.7873341964484854`*^9, 3.7873342101965575`*^9}, {
  3.7873343395092273`*^9, 3.7873343465322886`*^9}},
 CellID->666863658],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cell", "=", 
  RowBox[{"RandomChoice", "[", 
   RowBox[{"Cells", "[", "]"}], "]"}]}]], "Input",
 TaggingRules->{},
 CellChangeTimes->{{3.7873341110240316`*^9, 3.7873341167250633`*^9}, {
   3.787334167573335*^9, 3.7873341892854505`*^9}, 3.787334334118202*^9},
 CellLabel->"In[4]:=",
 CellID->354320183,ExpressionUUID->"64cea6ab-385d-4b38-9cda-30d037663077"],

Cell[BoxData[
 TemplateBox[{6273, "6273", "\"Input\""},
  "CellObject"]], "Output",
 CellChangeTimes->{3.787334360569339*^9, 3.788283749672554*^9},
 CellLabel->"Out[4]=",
 CellID->186719241,ExpressionUUID->"4fd8396d-24f0-4fde-9217-61a3e66f5212"]
}, Open  ]],

Cell["Get the style for the cell:", "Text",
 CellChangeTimes->{{3.787334353293301*^9, 3.787334358340328*^9}},
 CellID->110458431,ExpressionUUID->"793398f8-f123-469f-9c2d-b3386e8411a6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CellObjectStyle", "[", "cell", "]"}]], "Input",
 TaggingRules->{},
 CellChangeTimes->{{3.7873341110240316`*^9, 3.7873341167250633`*^9}, {
   3.787334167573335*^9, 3.7873341892854505`*^9}, 3.787334334118202*^9},
 CellLabel->"In[5]:=",
 CellID->546310043,ExpressionUUID->"48678dd2-65cf-411d-84e4-318a4a685ca4"],

Cell[BoxData["\<\"Input\"\>"], "Output",
 CellChangeTimes->{{3.7873341772673864`*^9, 3.7873341896204515`*^9}, 
   3.7873343621843524`*^9, 3.788283751656579*^9},
 CellLabel->"Out[5]=",
 CellID->39289604,ExpressionUUID->"a3f4744d-5fba-41a3-a335-94583590c449"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Source & Additional Information", "Section",
 CellTags->"Source & Additional Information",
 CellID->348526984],

Cell[CellGroupData[{

Cell[TextData[{
 "Contributed By",
 Cell[BoxData[
  TemplateBox[{"Contributed By", 
    Cell[
     BoxData[
      FrameBox[
       Cell[
       "Enter the name of the person, people or organization that should be \
publicly credited with contributing this function.", "MoreInfoText"], 
       Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> 
       GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> 
     True, CellTags -> {"SectionMoreInfoContributedBy"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]]]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
 CellID->581484318],

Cell["Arnoud Buzing", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.7873342175485954`*^9, 3.7873342189966035`*^9}},
 CellTags->{"TemplateCell", "TabNext"},
 CellID->184851438]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Keywords",
 Cell[BoxData[
  TemplateBox[{"Keywords", 
    Cell[
     BoxData[
      FrameBox[
       Cell[
       "List relevant terms (e.g. functional areas, algorithm names, related \
concepts) that should be used to include the function in search results.", 
        "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, 
       FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", 
     Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]]]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->{"Keywords", "TemplateCellGroup"},
 CellID->234953024],

Cell["keyword 1", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->123227828]
}, Open  ]],

Cell[CellGroupData[{

Cell["Categories", "Subsection",
 DefaultNewCellStyle->"Item",
 CellTags->{"Categories", "TemplateCellGroup"},
 CellID->360699210],

Cell[BoxData[
 TagBox[GridBox[{
    {
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", 
        "\"Cloud & Deployment\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12], 
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", 
        "\"Core Language & Structure\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12]},
    {
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", 
        "\"Data Manipulation & Analysis\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12], 
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Engineering Data & Computation"}], 
        "\" \"", "\"Engineering Data & Computation\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12]},
    {
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "External Interfaces & Connections"}], 
        "\" \"", "\"External Interfaces & Connections\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12], 
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", 
        "\"Financial Data & Computation\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12]},
    {
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"",
         "\"Geographic Data & Computation\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12], 
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12]},
    {
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", 
        "\"Graphs & Networks\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12], 
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Higher Mathematical Computation"}], 
        "\" \"", "\"Higher Mathematical Computation\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12]},
    {
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12], 
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Just For Fun"}], "\" \"", 
        "\"Just For Fun\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12]},
    {
     StyleBox[
      TemplateBox[{
        CheckboxBox[
        False, {False, "Knowledge Representation & Natural Language"}], 
        "\" \"", "\"Knowledge Representation & Natural Language\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12], 
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Machine Learning"}], "\" \"", 
        "\"Machine Learning\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12]},
    {
     StyleBox[
      TemplateBox[{
        CheckboxBox[
        "Notebook Documents & Presentation", {
         False, "Notebook Documents & Presentation"}], "\" \"", 
        "\"Notebook Documents & Presentation\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12], 
     StyleBox[
      TemplateBox[{
        CheckboxBox[
        "Programming Utilities", {False, "Programming Utilities"}], "\" \"", 
        "\"Programming Utilities\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12]},
    {
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Repository Tools"}], "\" \"", 
        "\"Repository Tools\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12], 
     StyleBox[
      TemplateBox[{
        CheckboxBox[
        False, {False, "Scientific and Medical Data & Computation"}], "\" \"",
         "\"Scientific and Medical Data & Computation\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12]},
    {
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], 
        "\" \"", "\"Social, Cultural & Linguistic Data\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12], 
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Sound"}], "\" \"", "\"Sound\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12]},
    {
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Strings & Text"}], "\" \"", 
        "\"Strings & Text\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12], 
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], 
        "\" \"", "\"Symbolic & Numeric Computation\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12]},
    {
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", 
        "\"System Operation & Setup\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12], 
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", 
        "\"Time-Related Computation\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12]},
    {
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", 
        "\"User Interface Construction\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12], 
     StyleBox[
      TemplateBox[{
        CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", 
        "\"Visualization & Graphics\""},
       "RowDefault"],
      StripOnInput->False,
      FontSize->12]}
   },
   AutoDelete->False,
   BaseStyle->{"ControlStyle"},
   ColumnsEqual->True,
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{},
   RowsEqual->True],
  "Grid"]], "Output",
 Editable->False,
 Deletable->False,
 CellTags->"CategoriesCell",
 CellID->1045044894]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Related Symbols",
 Cell[BoxData[
  TemplateBox[{"Related Symbols", 
    Cell[
     BoxData[
      FrameBox[
       Cell[
       "List up to twenty documented, system-level Wolfram Language symbols \
related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoRelatedSymbols"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]]]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->{"Related Symbols", "TemplateCellGroup"},
 CellID->787980732],

Cell[CellGroupData[{

Cell["CellObject", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.7873342466927476`*^9, 3.7873342504437637`*^9}},
 CellTags->{"TemplateCell", "TabNext"},
 CellID->258610070],

Cell["NotebookRead", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellChangeTimes->{{3.7873342466927476`*^9, 3.787334253820786*^9}},
 CellID->407248713]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Related Resource Objects",
 Cell[BoxData[
  TemplateBox[{"Related Resource Objects", 
    Cell[
     BoxData[
      FrameBox[
       Cell[
       "List the names of published resource objects from any Wolfram \
repository that are related to this function.", "MoreInfoText"], Background -> 
       GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], 
       RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]]]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->{"Related Resource Objects", "TemplateCellGroup"},
 CellID->202501204],

Cell["Resource Name (resources from any Wolfram repository)", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->960273585]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Source/Reference Citation",
 Cell[BoxData[
  TemplateBox[{"Source/Reference Citation", 
    Cell[
     BoxData[
      FrameBox[
       Cell[
       "Give a bibliographic-style citation for the original source of the \
function and/or its components (e.g. a published paper, algorithm, or code \
repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 
       20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], 
     "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]]]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->{"Source/Reference Citation", "TemplateCellGroup"},
 CellID->720896096],

Cell["Source, reference or citation information", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->343081869]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Links",
 Cell[BoxData[
  TemplateBox[{"Links", 
    Cell[
     BoxData[
      FrameBox[
       Cell[
       "List additional URLs or hyperlinks for external information related \
to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoLinks"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]]]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Item",
 CellTags->{"Links", "TemplateCellGroup"},
 CellID->282884713],

Cell["Link to other related material", "Item",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->485448166]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Tests",
 Cell[BoxData[
  TemplateBox[{"Tests", 
    Cell[
     BoxData[
      FrameBox[
       Cell[
       "Specify an optional list of tests for verifying that the function is \
working properly in any environment. Tests can be specified as Input/Output \
cell pairs or as symbolic VerificationTest expressions for including \
additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], 
       FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 
       5]], "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoTests"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]]]
}], "Subsection",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Input",
 CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
 CellID->899735658],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MyFunction", "[", 
  RowBox[{"x", ",", "y"}], "]"}]], "Input",
 CellLabel->"In[3]:=",
 CellID->667877521],

Cell[BoxData[
 RowBox[{"x", " ", "y"}]], "Output",
 CellLabel->"Out[3]=",
 CellID->993233288]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Author Notes", "Section",
 DefaultNewCellStyle->"Text",
 CellTags->{"Author Notes", "TemplateCellGroup"},
 CellID->871584409],

Cell["Additional information about limitations, issues, etc.", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->567921317]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Submission Notes",
 Cell[BoxData[
  TemplateBox[{"Submission Notes", 
    Cell[
     BoxData[
      FrameBox[
       Cell[
       "Enter any additional information that you would like to communicate \
to the reviewer here. This section will not be included in the published \
resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 
       20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], 
     "MoreInfoText", Deletable -> True, 
     CellTags -> {"SectionMoreInfoSubmissionNotes"}, 
     CellMargins -> {{66, 66}, {15, 15}}]},
   "MoreInfoOpenerButtonTemplate"]]]
}], "Section",
 Editable->False,
 Deletable->False,
 DefaultNewCellStyle->"Text",
 CellTags->{"Submission Notes", "TemplateCellGroup"},
 CellID->22658912],

Cell["Additional information for the reviewer.", "Text",
 CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[
       SelectedNotebook[], After, Cell]; NotebookFind[
       SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
       WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
       SelectedNotebook[], All, CellContents, AutoScroll -> True]], 
   PassEventsDown -> False, PassEventsUp -> False},
 CellTags->"TabNext",
 CellID->920818074]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1026, 655},
WindowMargins->{{362.5, Automatic}, {Automatic, 164.5}},
DockedCells->{
  Cell[
   BoxData[
    TemplateBox[{}, "MainGridTemplate"]], "DockedCell", 
   CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> 
   RGBColor[0.9216, 0.3412, 0.1059], CellTags -> {"MainDockedCell"}], 
  Cell[
   BoxData[
    TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {}, 
   CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{39, 5}, {2, 2}}, 
   CellFrame -> {{0, 0}, {1, 0}}, CellOpen -> Dynamic[
     CurrentValue[
      EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]], 
  Cell[
   BoxData[
    StyleBox[
     TagBox[
      DynamicModuleBox[{Typeset`var$$ = False}, 
       InterpretationBox[
        StyleBox[
         PaneSelectorBox[{False -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   StyleBox[
                    DynamicBox[
                    ToBoxes[
                    DateString[
                    TimeZoneConvert[
                    DateObject[
                    3.7882837764198561`17.331017493260234*^9, TimeZone -> 
                    0]], {"MonthName", " ", "DayShort", ", ", "Year", " ", 
                    "Hour12Short", ":", "Minute", " ", "AMPMLowerCase"}], 
                    StandardForm], SingleEvaluation -> True, Evaluator -> 
                    "System"], FontSlant -> Italic, FontColor -> 
                    GrayLevel[0.5], FontSize -> 0.9 Inherited, StripOnInput -> 
                    False], "\"   \"", 
                   TagBox[
                    
                    GridBox[{{
                    "\"Your update has been submitted for review.\"", 
                    "\"\""}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"Submission ID:\"", 
                    TemplateBox[{
                    "\"3046\"", 
                    "OEM6eJxLYyzmCEosd8qvSC0OZlMyNjAxUwIAPjgFeA=="}, 
                    "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (CurrentValue[
                    EvaluationNotebook[], DockedCells] = DeleteCases[
                    Flatten[{
                    CurrentValue[
                    EvaluationNotebook[], DockedCells]}], 
                    Condition[
                    Pattern[
                    ResourceSystemClient`DefinitionNotebook`Private`c$, 
                    Blank[Cell]], 
                    Not[
                    FreeQ[
                    ResourceSystemClient`DefinitionNotebook`Private`c$, 
                    "82f62884-7124-4d89-85be-36c9cbc334d7"]]]]), Appearance -> 
                    None, BoxID -> "82f62884-7124-4d89-85be-36c9cbc334d7", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Left, Left, Right, Right}, 
                   "Rows" -> {{Baseline}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {Automatic, Automatic, 
                    Scaled[0.35], Automatic, Fit, Automatic}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               OpenerBox[
                Dynamic[Typeset`var$$], Appearance -> Automatic, Enabled -> 
                Automatic, AutoAction -> False, ContinuousAction -> False], 
               TagBox[
                GridBox[{{
                   StyleBox[
                    DynamicBox[
                    ToBoxes[
                    DateString[
                    TimeZoneConvert[
                    DateObject[
                    3.7882837764198561`17.331017493260234*^9, TimeZone -> 
                    0]], {"MonthName", " ", "DayShort", ", ", "Year", " ", 
                    "Hour12Short", ":", "Minute", " ", "AMPMLowerCase"}], 
                    StandardForm], SingleEvaluation -> True, Evaluator -> 
                    "System"], FontSlant -> Italic, FontColor -> 
                    GrayLevel[0.5], FontSize -> 0.9 Inherited, StripOnInput -> 
                    False], "\"   \"", 
                   TagBox[
                    
                    GridBox[{{
                    "\"Your update has been submitted for review.\"", 
                    "\"\""}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"], 
                   TagBox[
                    GridBox[{{"\"Submission ID:\"", 
                    
                    TemplateBox[{
                    "\"3046\"", 
                    "OEM6eJxLYyzmCEosd8qvSC0OZlMyNjAxUwIAPjgFeA=="}, 
                    "ClickToCopyTemplate"]}}, AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                    "Grid"], "\"\"", 
                   TagBox[
                    ButtonBox[
                    TagBox[
                    PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[64, 85], 0.7529411764705882]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None], True -> GraphicsBox[{
                    GrayLevel[
                    NCache[
                    Rational[128, 255], 0.5019607843137255]], 
                    
                    PolygonBox[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                    
                    PolygonBox[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                    PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                    None]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                    MouseAppearanceTag["LinkHand"]], 
                    ButtonFunction :> (CurrentValue[
                    EvaluationNotebook[], DockedCells] = DeleteCases[
                    Flatten[{
                    CurrentValue[
                    EvaluationNotebook[], DockedCells]}], 
                    Condition[
                    Pattern[
                    ResourceSystemClient`DefinitionNotebook`Private`c$, 
                    Blank[Cell]], 
                    Not[
                    FreeQ[
                    ResourceSystemClient`DefinitionNotebook`Private`c$, 
                    "82f62884-7124-4d89-85be-36c9cbc334d7"]]]]), Appearance -> 
                    None, BoxID -> "82f62884-7124-4d89-85be-36c9cbc334d7", 
                    Evaluator -> Automatic, Method -> "Preemptive"], 
                    MouseAppearanceTag["LinkHand"]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Left, Left, Left, Left, Right, Right}, 
                   "Rows" -> {{Baseline}}}, AutoDelete -> False, 
                 GridBoxItemSize -> {"Columns" -> {Automatic, Automatic, 
                    Scaled[0.35], Automatic, Fit, Automatic}, 
                   "Rows" -> {{Automatic}}}], "Grid"]}, {"", 
               PaneBox[
                TagBox[
                 GridBox[{{"\"\"", 
                    StyleBox[
                    TagBox[
                    
                    GridBox[{{
                    "\"\[FilledVerySmallSquare]\"", "\"Submission result:\"", 
                    
                    TemplateBox[{
                    TagBox[
                    RowBox[{
                    TagBox["Success", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your update has been submitted. Your submission id is \
3046.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"CellObjectStyle\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your update has been submitted. Your submission id is \
3046.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"CellObjectStyle\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"UUID\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"af625523-2532-4d72-bdef-cb70740b6166\"", 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"SubmissionID\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"3046\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ResourceType\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    
                    TemplateBox[{"\"SubmissionDate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"Mon 6 Jan 2020 15:19:54\"", 
                    StyleBox[
                    RowBox[{"\"GMT\"", "\[InvisibleSpace]", 
                    StyleBox[
                    RowBox[{"-", "6.`"}], NumberMarks -> False, StripOnInput -> 
                    False]}], FontColor -> GrayLevel[0.5]]}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    
                    RowBox[{"2020", ",", "1", ",", "6", ",", "15", ",", "19", 
                    ",", "54.654801`8.490203291791621"}], "}"}], ",", 
                    "\"Instant\"", ",", "\"Gregorian\"", ",", 
                    RowBox[{"-", "6.`"}]}], "]"}]}, "DateObject", Editable -> 
                    False], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"ResourceSubmission\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {"Columns" -> {{Left}}, 
                    "Rows" -> {{Automatic}}}, AutoDelete -> False, 
                    GridBoxItemSize -> {"Columns" -> {{Automatic}}, 
                    "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{2}}, 
                    "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Short[#, 0.75]& ], 
                    "OEM6eJztWEtvGzcQ9lovS1ZsJ3HQpr0IC6OnyLBkSY4DFK68thwVUSKIS\
h8oApjSUjLTXa5Kcp2oRX9CT7320J/Sf9Eei7b3/oR2uC+tV3bgOkbQg/\
ewlDjDmeE8viF3pImlHn6177wmYpQRt9tMEj7hRGJJHQbTI01ke45iGKVF+gkVcrQosn08hhmUQ+\
5wSIRAy8i1bcynjwk2kfbVKCXWDqYM23TYcUzXImr5YrQ8hYgUK/\
3phAgij50JYRsbItPCliAhdT2kEntATATmkI0NlOmB/\
CnwLPeJPbFg0rfQF5wSq13MCCIWGUqHn9WZ7oEZoZKMyB1xap5dHI45JUSRMiK/70oZuqEQ7MiX+\
0HrsMvpKZhw3OIOk4fM7BHhuHxIUL51uE+ljScCraNvXMxJ13JFe+\
iwDjGpa6sNKHMOiIWnxBQrvpqWy4bK6xd5KN3nLom2UmhOJgRzzCAA6acOm1Hyh6fYcjG4QOSbrnRs\
iOUwomY7RJ44Jip0OQEnSnoaW9m06JjZhMnQcyJrEJUS4Thjbdt4TBD9loBrcoFrolUxvSmR6VObCL\
7gPcVPgL9ouJyDvM/AToJutcB/\
Bp48JnR8ojRnus4rUKWJ9eZAOJYrSZxf3OrgMaMjOvRy1PgHArXU4tj2gpYSS0hOvYxDGf2Pn37UQW\
D+gHLICbVVoPeO9g3Hcjh/z3t+3eN3vefPPf6F9/\
y2Z9yPNlpEktPJM9ZmE1fOstQnrhhgOhjWxaZJ2ThJLnhmefYkYlT0KB3Mx5SJeJqq0VgwFpK/\
L7YlO0vmUI4WjWHtppK1myyiYCnK6x0oaAitjtL6o5KOCiDhgIywa0l0LyjztiR2kzHHRwmU+\
vuHn2Oo8LH+JdRByZ2YILt0gkVpQAgrCXdgUymJuVny6N5/IUBAiZolKkrbW7XGph5hiVLyNjvJ6k/\
BxVffxm3dIJb1bPASMscLYcK0MChrgffnaifkQDlIN9eGOGtn4wNvMpqxpcHEeZ5zSrigpgA8iCTJj\
FsNjFEWesV5aVvm9VzeoFArmuChKoNLazUW/7uy/D4Wfk3FOpJPWkcnzitVI2xsnAA2DhVyJV20/\
NSFnsKh9r6eo60ApkM1A1hQlZhGahZlT/SUSfzar+fk0vk00BJOOH+Hqb4z+f9Gdk0526KMdB1Bg+\
bkR04ztIjL70zvrqve87tqh7JraKtJzL7pqzd9NdFXczd99d311bcy7fnz9sHVTftIx6NGtV6vbper\
9e1quWbuVMsDk4zKw8HO1k5ta9CoNBrXZ++KjqJgvY3dWV3F+\
DrtClFXYeXV7SroIfhen21rMZ8dAO3K1oHK8xTEbApV3tc7UEyN0qeYlapb1a1Spf6osvuoXlMYGMH\
i/GYAKI86fd3XmzqXM1ShlVGqsXl8qUPKG5Ez74G+gmHQkj/iePqEnBIr6BK/\
783f51FBuTGoR7i7zxhyF0UJad/FJpeDybTyDdIeIK3ivRvqvVip+\
8OuGj6s1zYb9drDrcrxw83aLvBvV3crO7uVRhXWfK9Y8nqbCYmZ1NW/Zf2Ik7HDKWbq/8WeQ9qL+\
EYifywdmlTiQXT3v7Y8zOhAv3pprEclNkvnmwvGzQXj5oIRv2DMjsDJY/s5B+\
aYeFQMCkndOqzkxeDumW+T/uF3tBDiyQtgjz5s3pmv0maujFaDw1wIDOjwakez43j/\
P94so9uB4C5W51iVXU0AuGKcDaVVsy+jtDqGodXEYQrm1RkIbVzmJHOB5GK8+\
6OlsIeX0crZ1gvlEYfcrO/Bl3/lIHZZY9W423sj3ucCoEf5COODNvX+L7OE9T/\
nxhD8QmiPCHf8NZ9TeRLcI4R/Rf0XRUuqIQ=="}, "ClickToCopyTemplate"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Resource:\"", 
                    TemplateBox[{
                    TagBox[
                    TagBox[
                    FrameBox[
                    PaneBox[
                    GridBox[{{
                    StyleBox[
                    StyleBox[
                    AdjustmentBox[
                    "\"[\[FilledSmallSquare]]\"", BoxBaselineShift -> -0.25, 
                    BoxMargins -> {{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
                     FontColor -> GrayLevel[0.15]], ShowStringCharacters -> 
                    False, FontFamily -> "Source Sans Pro Black", FontSize -> 
                    0.65 Inherited, FontWeight -> "Heavy", 
                    PrivateFontOptions -> {"OperatorSubstitution" -> False}], 
                    
                    StyleBox[
                    RowBox[{
                    StyleBox["\"CellObjectStyle\"", "ResourceFunctionLabel"], 
                    " "}], ShowAutoStyles -> False, ShowStringCharacters -> 
                    False, FontSize -> 0.9 Inherited, FontColor -> 
                    GrayLevel[0.1]]}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> 
                    Left, BaseStyle -> {
                    LineSpacing -> {0, 0}, LineBreakWithin -> False}, 
                    BaselinePosition -> Baseline, 
                    FrameMargins -> {{3, 0}, {0, 0}}], Background -> 
                    RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, 
                    FrameMargins -> {{0, 0}, {1, 1}}, FrameStyle -> 
                    RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius -> 
                    4], {"FunctionResourceBox", 
                    GrayLevel[0.15], "\"CellObjectStyle\""}, TagBoxNote -> 
                    "FunctionResourceBox"], Short[#, 0.75]& ], 
                    "OEM6eJyVVUtPU0EUptLSFhDKa4WLK3HbxFgkPha1jxRJEEgHZGFMmN6et\
gO3M83M3GLd6M6NW2PEX+FOEhNj3GriysQVxLgSI4k/AJy5l/uwUKOzuZMz35zzne+\
cM7cWEYky3s6zByBq/WJsgUrgLQ4SS8KoMivjwCqu611cJEocN0HvYyK+\
gqmzPSfi85xU9TYiootESGVyvwMigWTHAtdPeH8+V920hWwClcqA4jP3vj5/\
c39G3yzbFoiUsuaxAItQQA1Sk7zPWZ/e+pBBBbmDeZ1Q4Qc8+Rb6Cn3+/\
rhwjCbLIJjNTSjZ1NSZLZiM+\
p6SJUZlgVmMqwyS8xx3FqENFs84633WB06iBttGkhNaLzQwx6YSS4hYCVsCAl7aWwk3idVBU8iJaiB\
MhbHCmZG3sLnlQxMaishDfTm2Spog+McPen3LiuQCbQAnEqp/\
el4HUm9IFLsNuN3xj8ZXOGljCRqx3NIZinA1NAZNLreAY8k4sitCEmk7sBP2sVB5ImKgzLbd2nou/\
FM0NlMAy1qubIIpHeMMmuqWdxFXwEIRw+c3opXL2ZI5N05p9k/\
C9lTrx5lq9arqzgu9doOqjp60L2phUxE4LVxcebGbIUVPvl5PBq6SOYvUqe5qhYCaDA50Mzu5h3vVO\
Rpa1D3uxu5uYJefBuQ54K11IhuEduuS8gZlhQni1DThWXzMsDO5vcalPzQu4ciDedWtdc5sWtXzW57\
PO3ryid394aOjn1m+9275wq3sYZY/+7w3/vjRYfa/SKWKUMO2JQNt+rq0+\
Tvt8JRHCpHQnOhbrscw7Sf7r5++3Pme5b+\
SXzrT0wdZntt51bhx8yCgPVLWyapKlHGV2KIQVQ6cAGjC622v191JOeO5OGNCAmruW7rEJPTymOoeJ\
mUb8Wyu01wijaJLOsfRrkhplFSjxGWPw+\
ja2kIRXbp6PXPNnJs105nq5Ux6tgqVNAZzLo0rmSvV2VmzVsso8LAXdLXTApTw6KRR/\
K6aTl3S6BKjCjhUBGFy4jw76OI8SEM2wBA6pMFqRp20gRoBlzQaRJ1mhVkOyWKgQku3CuOdDZ+\
g5qfpaXZhchunMkv5Tw8znX+XSy4QHoGl0Lii9u78/Ab9U3SJ"}, 
                    "ClickToCopyTemplate"]}, {
                    "\"\[FilledVerySmallSquare]\"", "\"Resource object:\"", 
                    TemplateBox[{
                    TagBox[
                    RowBox[{"ResourceObject", "[", 
                    PanelBox[
                    TagBox[
                    GridBox[{{
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60., 60.}}, {0, 255}, 
                    ColorFunction -> RGBColor], {
                    ImageSize -> 15, AspectRatio -> 1, Axes -> False, 
                    Background -> None, Frame -> None, FrameTicks -> None, 
                    ImageSize -> Dynamic[{
                    Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]}], 
                    "\"CellObjectStyle\""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Bottom}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.25}}, "Rows" -> {{0}}}], "Grid"], 
                    FrameMargins -> 1, ContentPadding -> False], "]"}], 
                    Short[#, 0.75]& ], 
                    "OEM6eJztXM1vG0UUT2I7301SSIXEKZgITpYqEipAPSRx4jRSUyxPWg4I1\
PV6nGy73jU7u23NKQeOgCpx4VipfwASx56qHjgDd7SpEEIIoRYBQgghM7Mf9ma8tmftdbLOzkivTnc\
+3vvNx5vP98qjaLIg3N1Q70FUTqHzO4oOtaoGdUGXVAV/Lo+\
i8YJKEpSTKHlVQnp5DI3vCfv4C5grQKQamgjfLd6Cog5mgFGpCFrtChRKYPT9cgItbNYUoSKJu2rJk\
CEpZaxRSgJAHc3t1aoQQf2mWoXK8jJK5QQZQTd20Y2FlSIsASwVXF4GqQIuv4bTzOzBSlXGH21B7YI\
TaD4vKBBAGYukasd5JgtYDJdJCk1sa1LpeGb3d4IUQqJSaGrD0HW3NqYdRHa5L+\
e28pp0B4twM6epir6llNw6AVO5rQ1JrwhVBBbBR4agwbxsoB1RVXZhSTIqBAARZxPKQg2W0JzNJmco\
Iqn8djWU3NMM2IAyvV6tQkETFBGi5DVVacZMbd0RZEPAVYCm1g1dreAmFRux47tQP1BLYDqvQVyJun\
THk3NdlvaVClR0t+bQeBaSnuH+NpPuVIR9CKSPIa6aCadqGrk8fBMotSdVINJGrDC7htPPZg1Nw+\
XdwHJCcC6H6y8rVK9Aaf+AcE7l1buY1ShaXC8iVTZ06E2Pzu0K+\
4pUlkSrq2br5Qk0s60J1QNJRHZ3nSoICAuL//\
NkIXH5crJer48MgsztyYuYqpgeYHqMqd6FHjtpSZ6Lg5IrZIx5R+\
bnDPi60XOnrPxp46IwLmA6xHQUAsZ2dOTwWDhlrIchtWWQNj88BZxrA25PlvZeO6G+e/\
8UcdJ0f1B9HJe7hOnbCGCkici0FDLWi+\
bJjtOgRGQLZQ4bAqyhYR4irH1jNu3xOkxYvZgDjWfT1sNR1E2sRGRn1ttmtOacXuk+\
I9a1CMgaFq0x4D3NdVPYdNQF62EEZAybDjvoqGHUx92IYGrRXWe0bdu2sckwbn82cl3pKXipJd9Pty\
61Tc8iLykzCD8fOqKw5ln4sgQ/DH9//6Rteha+pMwg/NpQ45zEtM9NuuZ59vCTtrL/\
9c3XVvyPH77eFe9/fz63vpH0LHxJmX88eujLOwDeBx68zHqK9B86/PPDdx3zeOX895enfY3FXz+\
FveJ9Xm/uCQLxpMPvX33BjJf83Q9eur4D4K2bzTPTvvB265devN3qJij/gHjd8+ETw8s6ZgeEl/\
UsfCB4O80zneatPvAGxhom3k7zDB1Cwtt3f+J4OV6ONzz+HG84ROYOIishOrhrYUK/\
fal3xEvW2cOAl6zZyTqfJdB7tDDXk0SOPvEyz8Gk7G7t67dH8uIldea3h2Ilmn8P643A60m6nYOMXz\
eQfRJrW5PzApLeL/\
Swngy8X6Dl7wWvG1j7VbvQw34h8H6Q7HGC4I0QWXdLZsBzSVpnDAlea79fD3Ce4yUy77jB3dMSvUzm\
GxLCmHdCJu95DtN5HU3kTMkN5G9aj5GzlwjgdOnYuyazx3sUeiz3oUsGSS33KmYf5+\
0El9uP6T4eEfI7bw/lPqWftcSAyPc+pd82jjD53pf1O44jSh3vQ+sxvO+ux+w9g0d3xea9ioM5Nu+\
RPJhj895sCDHH6Q1laFip8RxFHRb6e2BKb0dprhrYe28Kdyze8/vgjoW9hk8fj4U9jg/\
2M29v1QF7JO3pvHak5Dc7km18c+war601/\
mimumVntQwmz2VVWdVcG080WdjesL40EsysoyoU9QKxasyONj4n1+9B1LSOdYw/\
NwTx9r6mGkqJMv5M5TShQluETlsf9yTxNqJtRZtmnGMdzTjHWsw43S/\
h23O6ws01hMsK4gE8XuOHuTWqCUZGnD/Sa+\
XxpoVv4njbeeyaEy12zZPpa7ii3llKgwuORfOODivriqLadtEg8eyzB57059NZKMuOEbRek2G6YQpN\
MnpSjqVboljEISbA7OJMp93+dZwZTvf5IyaO8+lNiERNqpJC2Bm/mt6G+pJ+\
AJcQqYUltby0L92BylKzetpIZDX0gtNWLebHbgowgceKUVFQw17b+cX/\
wnIzWRIDa03jYwU9TT5tQhnqkB5b844wlpj2wGCUpZUPu0AuV1AVREnZR8xcs2PBmU1tCAha/\
dVj229HLYID9S7QNSxD9kDQBJEYf9NVNHPNqBShtitot1vi5vI4r57XoCghMpwTzVa2iq4punDP4t2\
StbUbjFKV4I8wsadWo9uyC6SyZUmBeRVJjn2/\
3XKjXjVvGfefnGOCC7Zjgl1JCcEzAT07cdcE3DUBXyqHhTE2WyEzJltdMyZHGWaMjqrMGB1FmjE6ah\
4CrKFhHiKsfWM2Y3QVaMbsqteM1pzTK3HXBP54Y/\
MUx4zRUyuTuyY4S9TSxiZ3TdBCLIG7JuCuCXoYfw3irgm4a4IOxF0TnCBe7pqgfQgJb9/\
9iePleDne8PhzvOEQd03QPnDXBNw1AXdN0LlftQvcNUFH4q4JGIm7JuCuCbhrglMjv/\
N27prgbJDvfVm/4zii1PE+tB7D++\
56zN4zeHRXbN6rOJhj8x7Jgzk2782GEHOc3lBy1wThYI7Ne28Kdyze8/vgjoW9hk8fj4U9jg/\
2M29v1QF7JO3puGuCIXZNkOKuCSLsmoChDq5f39lkF+\
W19Jtvr7wlXloVMyuliyuZ1RIsZgQoXsoIxZU3SqurYrm8QrUTGGESZSZ9A2ooUMVYo82HF/\
fIwD0yxNkjQ9NnAO3nwGdq8hQPZp2hRNw0yLQnhRedMnfVEv5qzy7lEZstGP0Ac51z3TTYSml9MoOH\
KFb5YJ5S5BkwhdtN09tEJolSAsssqiYDZl2mBCmYdHV0Bkw4+\
sSelDNgxqN8wStdVWoGTINapajKlpCbbrkFWCVVrmq1mw0BiXxEPCKdV7ibLcgW3GKuqvaETK8lAO5\
koi4U5ZaONrlVknwjXrDzvCfpB1m8NsBdHNm+OP4HTghc2A=="}, "ClickToCopyTemplate"]}},
                     GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {Automatic, Automatic, Fit}, 
                    "Rows" -> {{Automatic}}}], "Grid"], FontColor -> 
                    GrayLevel[0.5], FontSize -> 12, StripOnInput -> False]}}, 
                  GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "Columns" -> {{None}}, "RowsIndexed" -> {-1 -> GrayLevel[
                    Rational[239, 255]]}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {Automatic, Fit}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {1, {}, 1}, "Rows" -> {1, {}, 2}}], "Grid"], 
                ImageMargins -> 0]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False,
              GridBoxBackground -> {"Columns" -> {{Automatic}}}, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.2}}, "Rows" -> {{0.5}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`var$$], Alignment -> Automatic, ImageSize -> 
          Automatic, ImageMargins -> 0, BaseStyle -> {}, DefaultBaseStyle -> 
          "OpenerView", BaselinePosition -> Baseline], Deployed -> False, 
         StripOnInput -> False], 
        OpenerView[{
          Grid[{{
             Style[
              Dynamic[
               DateString[
                TimeZoneConvert[
                 DateObject[
                 3.7882837764198561`17.331017493260234*^9, TimeZone -> 0]], {
                "MonthName", " ", "DayShort", ", ", "Year", " ", 
                 "Hour12Short", ":", "Minute", " ", "AMPMLowerCase"}], 
               SingleEvaluation -> True, Evaluator -> "System"], FontSlant -> 
              Italic, FontColor -> GrayLevel[0.5], FontSize -> 0.9 Inherited],
              "   ", 
             
             Grid[{{"Your update has been submitted for review.", ""}}, 
              Spacings -> 0.25], 
             Grid[{{"Submission ID:", 
                RawBoxes[
                 
                 TemplateBox[{
                  "\"3046\"", "OEM6eJxLYyzmCEosd8qvSC0OZlMyNjAxUwIAPjgFeA=="},
                   "ClickToCopyTemplate"]]}}], "", 
             MouseAppearance[
              Button[
               MouseAppearance[
                Mouseover[
                 Graphics[{
                   GrayLevel[
                    Rational[64, 85]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None], 
                 Graphics[{
                   GrayLevel[
                    Rational[128, 255]], 
                   
                   Polygon[{{-0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, -0.282842712474619}, {0.282842712474619, 
                    0.42426406871192845`}, {0.42426406871192845`, 
                    0.282842712474619}}], 
                   
                   Polygon[{{0.42426406871192845`, -0.282842712474619}, {
                    0.282842712474619, -0.42426406871192845`}, \
{-0.42426406871192845`, 0.282842712474619}, {-0.282842712474619, 
                    0.42426406871192845`}}]}, ImageSize -> 18, 
                  PlotRangePadding -> 0, PlotRange -> 0.7, Background -> 
                  None]], "LinkHand"], CurrentValue[
                 EvaluationNotebook[], DockedCells] = DeleteCases[
                 Flatten[{
                   CurrentValue[
                    EvaluationNotebook[], DockedCells]}], 
                 Condition[
                  Pattern[
                  ResourceSystemClient`DefinitionNotebook`Private`c$, 
                   Blank[Cell]], 
                  Not[
                   FreeQ[
                   ResourceSystemClient`DefinitionNotebook`Private`c$, 
                    "82f62884-7124-4d89-85be-36c9cbc334d7"]]]], Appearance -> 
               None, BoxID -> "82f62884-7124-4d89-85be-36c9cbc334d7"], 
              "LinkHand"]}}, ItemSize -> {{Automatic, Automatic, 
              Scaled[0.35], Automatic, Fit, Automatic}, Automatic}, 
           Alignment -> {{Left, Left, Left, Left, Right, Right}, Baseline}], 
          Grid[{{"", 
             Style[
              Grid[{{"\[FilledVerySmallSquare]", "Submission result:", 
                 RawBoxes[
                  TemplateBox[{
                    TagBox[
                    RowBox[{
                    TagBox["Success", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquarePlusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your update has been submitted. Your submission id is \
3046.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"CellObjectStyle\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    PaneBox[
                    ButtonBox[
                    DynamicBox[
                    FEPrivate`FrontEndResource[
                    "FEBitmaps", "SquareMinusIconMedium"]], 
                    ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                    None, Evaluator -> Automatic, Method -> "Preemptive"], 
                    Alignment -> {Center, Center}, ImageSize -> 
                    Dynamic[{Automatic, 3.5 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    FrameBox[
                    StyleBox["\"\[Checkmark]\"", 
                    Directive[
                    RGBColor[
                    0.3607843137254902, 0.596078431372549, 
                    0.3803921568627451], 25], StripOnInput -> False], 
                    ContentPadding -> False, FrameStyle -> None, 
                    FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
                    
                    GridBox[{{
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Message\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"Your update has been submitted. Your submission id is \
3046.\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Name\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"CellObjectStyle\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"UUID\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox[
                    "\"af625523-2532-4d72-bdef-cb70740b6166\"", 
                    "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"SubmissionID\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"3046\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"ResourceType\"", "\": \""}, "RowDefault"],
                     "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"Function\"", "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    
                    TemplateBox[{"\"SubmissionDate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    TemplateBox[{
                    RowBox[{"\"Mon 6 Jan 2020 15:19:54\"", 
                    StyleBox[
                    RowBox[{"\"GMT\"", "\[InvisibleSpace]", 
                    StyleBox[
                    RowBox[{"-", "6.`"}], NumberMarks -> False, StripOnInput -> 
                    False]}], FontColor -> GrayLevel[0.5]]}], 
                    RowBox[{"DateObject", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    
                    RowBox[{"2020", ",", "1", ",", "6", ",", "15", ",", "19", 
                    ",", "54.654801`8.490203291791621"}], "}"}], ",", 
                    "\"Instant\"", ",", "\"Gregorian\"", ",", 
                    RowBox[{"-", "6.`"}]}], "]"}]}, "DateObject", Editable -> 
                    False], "SummaryItem"]}]}, {
                    RowBox[{
                    TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["\"ResourceSubmission\"", "SummaryItem"]}]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {ShowStringCharacters -> False, NumberMarks -> 
                    False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}},
                     GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    Short[#, 0.75]& ], 
                    "OEM6eJztWEtvGzcQ9lovS1ZsJ3HQpr0IC6OnyLBkSY4DFK68thwVUSKIS\
h8oApjSUjLTXa5Kcp2oRX9CT7320J/Sf9Eei7b3/oR2uC+tV3bgOkbQg/\
ewlDjDmeE8viF3pImlHn6177wmYpQRt9tMEj7hRGJJHQbTI01ke45iGKVF+gkVcrQosn08hhmUQ+\
5wSIRAy8i1bcynjwk2kfbVKCXWDqYM23TYcUzXImr5YrQ8hYgUK/\
3phAgij50JYRsbItPCliAhdT2kEntATATmkI0NlOmB/\
CnwLPeJPbFg0rfQF5wSq13MCCIWGUqHn9WZ7oEZoZKMyB1xap5dHI45JUSRMiK/70oZuqEQ7MiX+\
0HrsMvpKZhw3OIOk4fM7BHhuHxIUL51uE+ljScCraNvXMxJ13JFe+\
iwDjGpa6sNKHMOiIWnxBQrvpqWy4bK6xd5KN3nLom2UmhOJgRzzCAA6acOm1Hyh6fYcjG4QOSbrnRs\
iOUwomY7RJ44Jip0OQEnSnoaW9m06JjZhMnQcyJrEJUS4Thjbdt4TBD9loBrcoFrolUxvSmR6VObCL\
7gPcVPgL9ouJyDvM/AToJutcB/\
Bp48JnR8ojRnus4rUKWJ9eZAOJYrSZxf3OrgMaMjOvRy1PgHArXU4tj2gpYSS0hOvYxDGf2Pn37UQW\
D+gHLICbVVoPeO9g3Hcjh/z3t+3eN3vefPPf6F9/\
y2Z9yPNlpEktPJM9ZmE1fOstQnrhhgOhjWxaZJ2ThJLnhmefYkYlT0KB3Mx5SJeJqq0VgwFpK/\
L7YlO0vmUI4WjWHtppK1myyiYCnK6x0oaAitjtL6o5KOCiDhgIywa0l0LyjztiR2kzHHRwmU+\
vuHn2Oo8LH+JdRByZ2YILt0gkVpQAgrCXdgUymJuVny6N5/IUBAiZolKkrbW7XGph5hiVLyNjvJ6k/\
BxVffxm3dIJb1bPASMscLYcK0MChrgffnaifkQDlIN9eGOGtn4wNvMpqxpcHEeZ5zSrigpgA8iCTJj\
FsNjFEWesV5aVvm9VzeoFArmuChKoNLazUW/7uy/D4Wfk3FOpJPWkcnzitVI2xsnAA2DhVyJV20/\
NSFnsKh9r6eo60ApkM1A1hQlZhGahZlT/SUSfzar+fk0vk00BJOOH+Hqb4z+f9Gdk0526KMdB1Bg+\
bkR04ztIjL70zvrqve87tqh7JraKtJzL7pqzd9NdFXczd99d311bcy7fnz9sHVTftIx6NGtV6vbper\
9e1quWbuVMsDk4zKw8HO1k5ta9CoNBrXZ++KjqJgvY3dWV3F+\
DrtClFXYeXV7SroIfhen21rMZ8dAO3K1oHK8xTEbApV3tc7UEyN0qeYlapb1a1Spf6osvuoXlMYGMH\
i/GYAKI86fd3XmzqXM1ShlVGqsXl8qUPKG5Ez74G+gmHQkj/iePqEnBIr6BK/\
783f51FBuTGoR7i7zxhyF0UJad/FJpeDybTyDdIeIK3ivRvqvVip+\
8OuGj6s1zYb9drDrcrxw83aLvBvV3crO7uVRhXWfK9Y8nqbCYmZ1NW/Zf2Ik7HDKWbq/8WeQ9qL+\
EYifywdmlTiQXT3v7Y8zOhAv3pprEclNkvnmwvGzQXj5oIRv2DMjsDJY/s5B+\
aYeFQMCkndOqzkxeDumW+T/uF3tBDiyQtgjz5s3pmv0maujFaDw1wIDOjwakez43j/\
P94so9uB4C5W51iVXU0AuGKcDaVVsy+jtDqGodXEYQrm1RkIbVzmJHOB5GK8+\
6OlsIeX0crZ1gvlEYfcrO/Bl3/lIHZZY9W423sj3ucCoEf5COODNvX+L7OE9T/\
nxhD8QmiPCHf8NZ9TeRLcI4R/Rf0XRUuqIQ=="}, "ClickToCopyTemplate"]]}, {
                "\[FilledVerySmallSquare]", "Resource:", 
                 RawBoxes[
                  TemplateBox[{
                    TagBox[
                    TagBox[
                    FrameBox[
                    PaneBox[
                    GridBox[{{
                    StyleBox[
                    StyleBox[
                    AdjustmentBox[
                    "\"[\[FilledSmallSquare]]\"", BoxBaselineShift -> -0.25, 
                    BoxMargins -> {{0, 0}, {-1, -1}}], "ResourceFunctionIcon",
                     FontColor -> GrayLevel[0.15]], ShowStringCharacters -> 
                    False, FontFamily -> "Source Sans Pro Black", FontSize -> 
                    0.65 Inherited, FontWeight -> "Heavy", 
                    PrivateFontOptions -> {"OperatorSubstitution" -> False}], 
                    
                    StyleBox[
                    RowBox[{
                    StyleBox["\"CellObjectStyle\"", "ResourceFunctionLabel"], 
                    " "}], ShowAutoStyles -> False, ShowStringCharacters -> 
                    False, FontSize -> 0.9 Inherited, FontColor -> 
                    GrayLevel[0.1]]}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.25}}}], Alignment -> 
                    Left, BaseStyle -> {
                    LineSpacing -> {0, 0}, LineBreakWithin -> False}, 
                    BaselinePosition -> Baseline, 
                    FrameMargins -> {{3, 0}, {0, 0}}], Background -> 
                    RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, 
                    FrameMargins -> {{0, 0}, {1, 1}}, FrameStyle -> 
                    RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius -> 
                    4], {"FunctionResourceBox", 
                    GrayLevel[0.15], "\"CellObjectStyle\""}, TagBoxNote -> 
                    "FunctionResourceBox"], Short[#, 0.75]& ], 
                    "OEM6eJyVVUtPU0EUptLSFhDKa4WLK3HbxFgkPha1jxRJEEgHZGFMmN6et\
gO3M83M3GLd6M6NW2PEX+FOEhNj3GriysQVxLgSI4k/AJy5l/uwUKOzuZMz35zzne+\
cM7cWEYky3s6zByBq/WJsgUrgLQ4SS8KoMivjwCqu611cJEocN0HvYyK+\
gqmzPSfi85xU9TYiootESGVyvwMigWTHAtdPeH8+V920hWwClcqA4jP3vj5/\
c39G3yzbFoiUsuaxAItQQA1Sk7zPWZ/e+pBBBbmDeZ1Q4Qc8+Rb6Cn3+/\
rhwjCbLIJjNTSjZ1NSZLZiM+\
p6SJUZlgVmMqwyS8xx3FqENFs84633WB06iBttGkhNaLzQwx6YSS4hYCVsCAl7aWwk3idVBU8iJaiB\
MhbHCmZG3sLnlQxMaishDfTm2Spog+McPen3LiuQCbQAnEqp/\
el4HUm9IFLsNuN3xj8ZXOGljCRqx3NIZinA1NAZNLreAY8k4sitCEmk7sBP2sVB5ImKgzLbd2nou/\
FM0NlMAy1qubIIpHeMMmuqWdxFXwEIRw+c3opXL2ZI5N05p9k/\
C9lTrx5lq9arqzgu9doOqjp60L2phUxE4LVxcebGbIUVPvl5PBq6SOYvUqe5qhYCaDA50Mzu5h3vVO\
Rpa1D3uxu5uYJefBuQ54K11IhuEduuS8gZlhQni1DThWXzMsDO5vcalPzQu4ciDedWtdc5sWtXzW57\
PO3ryid394aOjn1m+9275wq3sYZY/+7w3/vjRYfa/SKWKUMO2JQNt+rq0+\
Tvt8JRHCpHQnOhbrscw7Sf7r5++3Pme5b+\
SXzrT0wdZntt51bhx8yCgPVLWyapKlHGV2KIQVQ6cAGjC622v191JOeO5OGNCAmruW7rEJPTymOoeJ\
mUb8Wyu01wijaJLOsfRrkhplFSjxGWPw+\
ja2kIRXbp6PXPNnJs105nq5Ux6tgqVNAZzLo0rmSvV2VmzVsso8LAXdLXTApTw6KRR/\
K6aTl3S6BKjCjhUBGFy4jw76OI8SEM2wBA6pMFqRp20gRoBlzQaRJ1mhVkOyWKgQku3CuOdDZ+\
g5qfpaXZhchunMkv5Tw8znX+XSy4QHoGl0Lii9u78/Ab9U3SJ"}, 
                   "ClickToCopyTemplate"]]}, {
                "\[FilledVerySmallSquare]", "Resource object:", 
                 RawBoxes[
                  TemplateBox[{
                    TagBox[
                    RowBox[{"ResourceObject", "[", 
                    PanelBox[
                    TagBox[
                    GridBox[{{
                    GraphicsBox[
                    RasterBox[CompressedData["
1:eJztmzFvEzEUxyNg6JiNtUysmRADQ7qA2KJWrEitCBUMAaVFiO0GRoZILIyV
+gGQGJkqBmZgR06FKoRQRRAghBA6/JI7al585+fzc85X50n/Km3vzu8X28/2
s+/C1r3122dardbOivyxvvlwbTjcfLTRlr/cGOzc2R70b10f7Pa3+8PLW2fl
H69kOieVpqkXiWsrHan7UntSB1KpQQfZtXBPx5dfzIy9zOcJgc+kSfasXt1c
iLEtlUiNGRiLNM7KaNfMmjDVpU2dJzVwdj3XJ6W+uwtqu6MaObFGvtq4fO6q
1JsAGLHAp1Vm1o5YbD+1FfjGMoY1gJWNuUGszsxi1l+bxKoyW/VnMYvDIcYm
qsB3ctwWYY05VTUisnYD8JVLXQJvnfMmbo0NrEkAPnIrKYlRTYzHJgHTXOw6
pXVbWMeC0G8/Prhq1OHG+bn7ju5eKrye4i8806Y8jcaItUcpl2I6hp/vXhVe
TykXnmlTXoH+5UnELG9ivOfL/uNC33+8fjH9/4ebF428f75Ppn+D6ynlwjO/
vdzXlm3Bu6fwkuMUtB9sv96/Lb1H9fP3p0Onvvj5Sb8q7yQ9WRNYlYnt6/On
ZF747MKLv28L3lSc5EydeE3tUuU1fTe25Vvy5vnhhfFS+6wnXmou3Atv2ThT
Nm458FqzcvKWjTPYmHid29OSd8m75OUrf8nLIxg7wFcQtnwuDDp+tlvKC/Ps
JvDCnB3m+RTDazTO+ST44chLHoPh2ab61a2RVF74znRrKKpw+RXmG9bzSVzP
Nv03N1gnUesa8gVwvc4qzCet1wvY/yq8uVHbVZFVWC9YrwdhjWPDG5Cme0vC
Mi+JY0ZDeKfr/dQin6MKxp3c8jUtxGUYb8A4xh1mqfkcUr4OC3JKucFnHMcg
9xIAZ67/zjWJivsouC87xBKfmttXEQ75duDK2zFu44FIl29n2U9xmUt4knY/
xbWOA5Z2v8y1Hweq0v3QNML97jSy8wxK7IrmvErGHM15JIU5mvNmDWSO6Qwl
GyvqzyHGMPbzwChuhzRWeTvvjbijOM+v4Y7ifQ1NG4/ifRwN+6l/36qEPcj3
6f4CgLLCWA==
                    "], {{0, 0}, {60., 60.}}, {0, 255}, 
                    ColorFunction -> RGBColor], {
                    ImageSize -> 15, AspectRatio -> 1, Axes -> False, 
                    Background -> None, Frame -> None, FrameTicks -> None, 
                    ImageSize -> Dynamic[{
                    Automatic, 3.5 (CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification])}, 
                    ImageSizeCache -> {45., {0., 9.}}]}], 
                    "\"CellObjectStyle\""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Bottom}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.25}}, "Rows" -> {{0}}}], "Grid"], 
                    FrameMargins -> 1, ContentPadding -> False], "]"}], 
                    Short[#, 0.75]& ], 
                    "OEM6eJztXM1vG0UUT2I7301SSIXEKZgITpYqEipAPSRx4jRSUyxPWg4I1\
PV6nGy73jU7u23NKQeOgCpx4VipfwASx56qHjgDd7SpEEIIoRYBQgghM7Mf9ma8tmftdbLOzkivTnc\
+3vvNx5vP98qjaLIg3N1Q70FUTqHzO4oOtaoGdUGXVAV/Lo+\
i8YJKEpSTKHlVQnp5DI3vCfv4C5grQKQamgjfLd6Cog5mgFGpCFrtChRKYPT9cgItbNYUoSKJu2rJk\
CEpZaxRSgJAHc3t1aoQQf2mWoXK8jJK5QQZQTd20Y2FlSIsASwVXF4GqQIuv4bTzOzBSlXGH21B7YI\
TaD4vKBBAGYukasd5JgtYDJdJCk1sa1LpeGb3d4IUQqJSaGrD0HW3NqYdRHa5L+\
e28pp0B4twM6epir6llNw6AVO5rQ1JrwhVBBbBR4agwbxsoB1RVXZhSTIqBAARZxPKQg2W0JzNJmco\
Iqn8djWU3NMM2IAyvV6tQkETFBGi5DVVacZMbd0RZEPAVYCm1g1dreAmFRux47tQP1BLYDqvQVyJun\
THk3NdlvaVClR0t+bQeBaSnuH+NpPuVIR9CKSPIa6aCadqGrk8fBMotSdVINJGrDC7htPPZg1Nw+\
XdwHJCcC6H6y8rVK9Aaf+AcE7l1buY1ShaXC8iVTZ06E2Pzu0K+\
4pUlkSrq2br5Qk0s60J1QNJRHZ3nSoICAuL//\
NkIXH5crJer48MgsztyYuYqpgeYHqMqd6FHjtpSZ6Lg5IrZIx5R+\
bnDPi60XOnrPxp46IwLmA6xHQUAsZ2dOTwWDhlrIchtWWQNj88BZxrA25PlvZeO6G+e/\
8UcdJ0f1B9HJe7hOnbCGCkici0FDLWi+\
bJjtOgRGQLZQ4bAqyhYR4irH1jNu3xOkxYvZgDjWfT1sNR1E2sRGRn1ttmtOacXuk+\
I9a1CMgaFq0x4D3NdVPYdNQF62EEZAybDjvoqGHUx92IYGrRXWe0bdu2sckwbn82cl3pKXipJd9Pty\
61Tc8iLykzCD8fOqKw5ln4sgQ/DH9//6Rteha+pMwg/NpQ45zEtM9NuuZ59vCTtrL/\
9c3XVvyPH77eFe9/fz63vpH0LHxJmX88eujLOwDeBx68zHqK9B86/PPDdx3zeOX895enfY3FXz+\
FveJ9Xm/uCQLxpMPvX33BjJf83Q9eur4D4K2bzTPTvvB265devN3qJij/gHjd8+ETw8s6ZgeEl/\
UsfCB4O80zneatPvAGxhom3k7zDB1Cwtt3f+J4OV6ONzz+HG84ROYOIishOrhrYUK/\
fal3xEvW2cOAl6zZyTqfJdB7tDDXk0SOPvEyz8Gk7G7t67dH8uIldea3h2Ilmn8P643A60m6nYOMXz\
eQfRJrW5PzApLeL/\
Swngy8X6Dl7wWvG1j7VbvQw34h8H6Q7HGC4I0QWXdLZsBzSVpnDAlea79fD3Ce4yUy77jB3dMSvUzm\
GxLCmHdCJu95DtN5HU3kTMkN5G9aj5GzlwjgdOnYuyazx3sUeiz3oUsGSS33KmYf5+\
0El9uP6T4eEfI7bw/lPqWftcSAyPc+pd82jjD53pf1O44jSh3vQ+sxvO+ux+w9g0d3xea9ioM5Nu+\
RPJhj895sCDHH6Q1laFip8RxFHRb6e2BKb0dprhrYe28Kdyze8/vgjoW9hk8fj4U9jg/\
2M29v1QF7JO3pvHak5Dc7km18c+war601/\
mimumVntQwmz2VVWdVcG080WdjesL40EsysoyoU9QKxasyONj4n1+9B1LSOdYw/\
NwTx9r6mGkqJMv5M5TShQluETlsf9yTxNqJtRZtmnGMdzTjHWsw43S/\
h23O6ws01hMsK4gE8XuOHuTWqCUZGnD/Sa+\
XxpoVv4njbeeyaEy12zZPpa7ii3llKgwuORfOODivriqLadtEg8eyzB57059NZKMuOEbRek2G6YQpN\
MnpSjqVboljEISbA7OJMp93+dZwZTvf5IyaO8+lNiERNqpJC2Bm/mt6G+pJ+\
AJcQqYUltby0L92BylKzetpIZDX0gtNWLebHbgowgceKUVFQw17b+cX/\
wnIzWRIDa03jYwU9TT5tQhnqkB5b844wlpj2wGCUpZUPu0AuV1AVREnZR8xcs2PBmU1tCAha/\
dVj229HLYID9S7QNSxD9kDQBJEYf9NVNHPNqBShtitot1vi5vI4r57XoCghMpwTzVa2iq4punDP4t2\
StbUbjFKV4I8wsadWo9uyC6SyZUmBeRVJjn2/\
3XKjXjVvGfefnGOCC7Zjgl1JCcEzAT07cdcE3DUBXyqHhTE2WyEzJltdMyZHGWaMjqrMGB1FmjE6ah\
4CrKFhHiKsfWM2Y3QVaMbsqteM1pzTK3HXBP54Y/\
MUx4zRUyuTuyY4S9TSxiZ3TdBCLIG7JuCuCXoYfw3irgm4a4IOxF0TnCBe7pqgfQgJb9/\
9iePleDne8PhzvOEQd03QPnDXBNw1AXdN0LlftQvcNUFH4q4JGIm7JuCuCbhrglMjv/\
N27prgbJDvfVm/4zii1PE+tB7D++\
56zN4zeHRXbN6rOJhj8x7Jgzk2782GEHOc3lBy1wThYI7Ne28Kdyze8/vgjoW9hk8fj4U9jg/\
2M29v1QF7JO3puGuCIXZNkOKuCSLsmoChDq5f39lkF+\
W19Jtvr7wlXloVMyuliyuZ1RIsZgQoXsoIxZU3SqurYrm8QrUTGGESZSZ9A2ooUMVYo82HF/\
fIwD0yxNkjQ9NnAO3nwGdq8hQPZp2hRNw0yLQnhRedMnfVEv5qzy7lEZstGP0Ac51z3TTYSml9MoOH\
KFb5YJ5S5BkwhdtN09tEJolSAsssqiYDZl2mBCmYdHV0Bkw4+\
sSelDNgxqN8wStdVWoGTINapajKlpCbbrkFWCVVrmq1mw0BiXxEPCKdV7ibLcgW3GKuqvaETK8lAO5\
koi4U5ZaONrlVknwjXrDzvCfpB1m8NsBdHNm+OP4HTghc2A=="}, 
                   "ClickToCopyTemplate"]]}}, Alignment -> Left, 
               ItemSize -> {{Automatic, Automatic, Fit}, Automatic}], 
              FontColor -> GrayLevel[0.5], FontSize -> 12]}}, 
           ItemSize -> {{Automatic, Fit}, Automatic}, Alignment -> Left, 
           Dividers -> {None, {-1 -> GrayLevel[
                Rational[239, 255]]}}, Spacings -> {{1, {}, 1}, {1, {}, 2}}]},
          False]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], 
     "Text", FontSize -> 12, FontColor -> GrayLevel[0.25], StripOnInput -> 
     False]], "StripeCell", CellFrameMargins -> {{20, 5}, {2, 2}}, 
   CellFrame -> {{0, 0}, {1, 0}}, CellFrameColor -> GrayLevel[0.75]]},
TaggingRules->{
 "CreationTimestamp" -> 3.7873339791843195`17.330908593441425*^9, 
  "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", 
  "SubmissionReviewData" -> {
   "Review" -> True, "SubmissionID" -> "3046", "OriginalName" -> 
    "CellObjectStyle", "Internal" -> 
    "$yWBKt42zUkRSxwSkkU6CR+rf6N9TyG0abMVR2J2tX0g=$r7ICIqfo/+0u9Dgy+rXOBA=="},
   "ToolsOpen" -> False, "UpdatedTimestamp" -> 
  3.788283626268466`16.331017476046654*^9, "TemplateVersion" -> "1.3.2", 
  "StatusMessage" -> "", "AttachedHints" -> {}},
CreateCellID->True,
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (January 14, 2020)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData[All, "Working"], DockedCells -> {
      Cell[
       BoxData[
        TemplateBox[{}, "MainGridTemplate"]], "DockedCell", 
       CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> 
       RGBColor[0.9216, 0.3412, 0.1059], CellTags -> {"MainDockedCell"}], 
      Cell[
       BoxData[
        TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", 
       TaggingRules -> {}, CellTags -> {"ToolbarDockedCell"}, 
       CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, 
       CellOpen -> Dynamic[
         CurrentValue[
          EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, 
    AutoQuoteCharacters -> {}], 
   Cell[
    StyleData["Item"], DefaultNewCellStyle -> "Item"], 
   Cell[
    StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], 
    FontColor -> GrayLevel[0.25]], 
   Cell[
    StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, 
    CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, 
    FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], 
   Cell[
    StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], 
    ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 
    14, GridBoxOptions -> {BaseStyle -> {}}], 
   Cell[
    StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, 
    FontWeight -> Bold, FontColor -> RGBColor[0.4588, 0.4588, 0.4588]], 
   Cell[
    StyleData["MoreInfoOpenerIconTemplate"], 
    TemplateBoxOptions -> {
     DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{
            Thickness[0.0909], 
            StyleBox[{
              
              JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS
Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg
7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6
YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA==
               "], 
               CurveClosed -> {1}]}, {
              JoinForm[{"Miter", 3.25}], 
              Thickness[0.0458], 
              RGBColor[0.6274, 0.6274, 0.6274, 1.]}, StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
                 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo
vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ
5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F
vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc
FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM
h4UPzH5Y+MHcBwtf9PAHAM3Qoi4=
                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39
VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k
gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD
QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh
y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ
Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5
/1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ==
                "]}]}, {
              FaceForm[
               RGBColor[0.6274, 0.6274, 0.6274, 1.]]}, StripOnInput -> 
             False]}, ImageSize -> {11., 11.}, 
           PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], 
         True -> GraphicsBox[{
            Thickness[0.0909], 
            StyleBox[{
              
              JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS
Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg
7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6
YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA==
               "], 
               CurveClosed -> {1}]}, {
              JoinForm[{"Miter", 3.25}], 
              Thickness[0.0458], 
              RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS
Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg
7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6
YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA==
               "]]}, {
              FaceForm[
               RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], 
            StyleBox[{
              
              FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
                 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1,
                 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 
                0}}}, {CompressedData["
1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo
vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ
5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F
vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc
FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM
h4UPzH5Y+MHcBwtf9PAHAM3Qoi4=
                "], CompressedData["
1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39
VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k
gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD
QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh
y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ
Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5
/1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ==
                "]}]}, {
              FaceForm[
               RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, 
           ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, 
           AspectRatio -> Automatic]}, 
        Dynamic[
         CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 
        0]& )}], 
   Cell[
    StyleData["MoreInfoOpenerButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[
        ButtonBox[
         TemplateBox[{
           TemplateBox[{}, "MoreInfoOpenerIconTemplate"], 
           "\"Click for more information\""}, "PrettyTooltipTemplate"], 
         ButtonFunction :> (NotebookDelete[
            CurrentValue[
             ParentCell[
              EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; 
          If[
            And[
             MatchQ[
              CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], 
              Blank[CellObject]], CurrentValue[
               ParentCell[
                EvaluationCell[]], {
               TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = 
             Inherited; CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = 
             Inherited; Null, CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; 
            CurrentValue[
               ParentCell[
                EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = 
             MathLink`CallFrontEnd[
               FrontEnd`AttachCell[
                ParentCell[
                 EvaluationCell[]], #2, "Inline", 
                "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), 
         Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], 
        BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], 
   Cell[
    StyleData["InlineMoreInfoOpenerButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[
        ButtonBox[
         TemplateBox[{
           TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, 
          "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[
            CurrentValue[
             ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[
            And[
             MatchQ[
              CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], 
              Blank[CellObject]], CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #],
             CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = 
             Inherited; CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = 
             Inherited; Null, CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; 
            CurrentValue[
               ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = 
             MathLink`CallFrontEnd[
               FrontEnd`AttachCell[
                ReleaseHold[#3], #2, "Inline", 
                "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), 
         Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], 
        BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], 
   Cell[
    StyleData["ClickToCopyTemplate"], 
    TemplateBoxOptions -> {
     DisplayFunction -> (PaneSelectorBox[{False -> TagBox[
           GridBox[{{#, 
              ButtonBox[
               GraphicsBox[{
                 GrayLevel[0.85], 
                 Thickness[
                  NCache[2/45, 0.0444]], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                   0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                   0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {
                   9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 
                   18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, {
                   16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, {
                   15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {
                   8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 
                   16.5}, {9.75, 16.5}}}], 
                 
                 FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                  0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                  0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {
                  14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, {
                  14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 
                  9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 
                  7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, 
                ImageSize -> 12], ButtonFunction :> Null, 
               Appearance -> {
                "Default" -> None, "Hover" -> None, "Pressed" -> None}, 
               Evaluator -> Automatic, Method -> "Preemptive"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}},
             AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> 
         DynamicModuleBox[{
           ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
clickTime$$ = 0., 
            ResourceSystemClientTools`BuildDefinitionNotebook`Private`timeout$\
$ = 3.}, 
           TagBox[
            GridBox[{{#, 
               TagBox[
                ButtonBox[
                 DynamicBox[
                  ToBoxes[
                   Refresh[
                    If[
                    AbsoluteTime[] - 
                    ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
clickTime$$ > 
                    ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
timeout$$, 
                    (RawBoxes[
                    TemplateBox[{
                    ToBoxes[#], 
                    ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[
                    Mouseover[
                    Graphics[{
                    GrayLevel[0.65], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12], 
                    Graphics[{
                    RGBColor[0.9882, 0.4196, 0.2039], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12]], 
                    "Click to copy to the clipboard"], 
                    (RawBoxes[
                    TemplateBox[{
                    ToBoxes[#], 
                    ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[
                    Graphics[{
                    RGBColor[0, 2/3, 0], 
                    Thickness[2/45], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 
                    18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 
                    18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {
                    16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {
                    15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 
                    17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, {
                    12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], 
                    
                    FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 
                    0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 
                    14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{
                    8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 
                    11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25,
                     9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 
                    6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 
                    1, TrackedSymbols :> {
                    ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
clickTime$$}], StandardForm], Evaluator -> "System"], 
                 ButtonFunction :> (
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
clickTime$$ = AbsoluteTime[]; CopyToClipboard[
                    BinaryDeserialize[
                    BaseDecode[#2], Defer]]), 
                 Appearance -> {
                  "Default" -> None, "Hover" -> None, "Pressed" -> None}, 
                 Method -> "Queued", Evaluator -> "System"], 
                MouseAppearanceTag["LinkHand"]]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
             False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], 
           DynamicModuleValues :> {}]}, 
        Dynamic[
         CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 
        0]& )}], 
   Cell[
    StyleData["PrettyTooltipTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        TooltipBox[#, 
         FrameBox[
          
          StyleBox[#2, "Text", FontColor -> RGBColor[0.5373, 0.5373, 0.5373], 
           FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", 
           StripOnInput -> False], Background -> 
          RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> 
          RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8, StripOnInput -> 
          False], TooltipDelay -> 0.1, 
         TooltipStyle -> {Background -> None, CellFrame -> 0}], 
        Annotation[#, 
         Framed[
          Style[
          ResourceSystemClientTools`BuildDefinitionNotebook`Private`$$tooltip,
            "Text", FontColor -> RGBColor[0.5373, 0.5373, 0.5373], FontSize -> 
           12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> 
          RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> 
          RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8], 
         "Tooltip"]& ]& )}], 
   Cell[
    StyleData["ToolsGridTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        GridBox[{{
           ButtonBox[
            TemplateBox[{
              StyleBox[
              "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", 
               FontSize -> 11, StripOnInput -> False], 
              "\"Format selection automatically using appropriate \
documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> 
            With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = ButtonNotebook[], 
               ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \
$ContextPath}, 
              Quiet[
               
               Block[{$ContextPath = 
                 ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                 ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\
, 
                  
                  ResourceSystemClient`DefinitionNotebook`DocumentationTools`\
TemplateInput[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> 
            Dynamic[
              FEPrivate`If[
               CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, {
               FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> 
              "System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC
1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL
AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x
                "], "Byte", ColorSpace -> 
                "RGB", Interleaving -> True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7
qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB
IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw==
                "], "Byte", 
                ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> 
              Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/
m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg
oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg
                "], "Byte", 
                ColorSpace -> "RGB", Interleaving -> True]}, Background -> 
            GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, 
            Evaluator -> Automatic], 
           ButtonBox[
            TemplateBox[{
              StyleBox[
              "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", 
               FontSize -> 11, StripOnInput -> False], 
              "\"Format selection as literal Wolfram Language code\""}, 
             "PrettyTooltipTemplate"], ButtonFunction :> 
            With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = ButtonNotebook[], 
               ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \
$ContextPath}, 
              Quiet[
               
               Block[{$ContextPath = 
                 ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                 ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\
, 
                  
                  ResourceSystemClient`DefinitionNotebook`DocumentationTools`\
LiteralInput[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> 
            Dynamic[
              FEPrivate`If[
               CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, {
               FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> 
              "System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC
1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL
AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x
                "], "Byte", ColorSpace -> 
                "RGB", Interleaving -> True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7
qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB
IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw==
                "], "Byte", 
                ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> 
              Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/
m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg
oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg
                "], "Byte", 
                ColorSpace -> "RGB", Interleaving -> True]}, Background -> 
            GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, 
            Evaluator -> Automatic], 
           ButtonBox[
            TemplateBox[{
              StyleBox[
              "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro",
                FontSize -> 11, StripOnInput -> False], 
              "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], 
            ButtonFunction :> 
            With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = ButtonNotebook[], 
               ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \
$ContextPath}, 
              Quiet[
               
               Block[{$ContextPath = 
                 ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                 ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\
, 
                  
                  ResourceSystemClient`DefinitionNotebook`DocumentationTools`\
DelimiterInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> 
            Dynamic[
              FEPrivate`If[
               CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, {
               FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> 
              "System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC
1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL
AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x
                "], "Byte", ColorSpace -> 
                "RGB", Interleaving -> True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7
qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB
IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw==
                "], "Byte", 
                ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> 
              Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/
m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg
oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg
                "], "Byte", 
                ColorSpace -> "RGB", Interleaving -> True]}, Background -> 
            GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, 
            Evaluator -> Automatic], 
           ButtonBox[
            TemplateBox[{
              StyleBox[
              "\"Subscripted Variable\"", "Text", FontFamily -> 
               "Source Sans Pro", FontSize -> 11, StripOnInput -> False], 
              "\"Insert subscripted variable placeholder\""}, 
             "PrettyTooltipTemplate"], ButtonFunction :> 
            With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = ButtonNotebook[], 
               ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \
$ContextPath}, 
              Quiet[
               
               Block[{$ContextPath = 
                 ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                 ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\
, 
                  
                  ResourceSystemClient`DefinitionNotebook`DocumentationTools`\
SubscriptInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> 
            Dynamic[
              FEPrivate`If[
               CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, {
               FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> 
              "System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC
1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL
AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x
                "], "Byte", ColorSpace -> 
                "RGB", Interleaving -> True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7
qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB
IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw==
                "], "Byte", 
                ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> 
              Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/
m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg
oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg
                "], "Byte", 
                ColorSpace -> "RGB", Interleaving -> True]}, Background -> 
            GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, 
            Evaluator -> Automatic], 
           ActionMenuBox[
            ButtonBox[
             TemplateBox[{
               StyleBox[
               "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\
\[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 
                11, StripOnInput -> False], "\"Table functions\""}, 
              "PrettyTooltipTemplate"], ButtonFunction :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = ButtonNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = 
                  ProgressIndicator[Appearance -> "Necklace"]; 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, Null]; CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], 
             FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[
               FEPrivate`If[
                CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, {
                FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> 
               "System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC
1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL
AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x
                 "], "Byte", ColorSpace -> 
                 "RGB", Interleaving -> True], "Hover" -> 
               Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7
qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB
IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw==
                 "], "Byte", 
                 ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> 
               Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/
m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg
oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg
                 "], "Byte", 
                 ColorSpace -> "RGB", Interleaving -> True]}, Background -> 
             GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, 
             Evaluator -> Automatic], {
            "\"Insert table with two columns\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   
                   ResourceSystemClient`DefinitionNotebook`DocumentationTools`\
TableInsert[2]]; Null]]], "\"Insert table with three columns\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   
                   ResourceSystemClient`DefinitionNotebook`DocumentationTools`\
TableInsert[3]]; Null]]], "\"Add a row to the selected table\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   
                   ResourceSystemClient`DefinitionNotebook`DocumentationTools`\
TableRowInsert[]]; Null]]], "\"Sort the selected table\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   
                   ResourceSystemClient`DefinitionNotebook`DocumentationTools`\
TableSort[]]; Null]]], "\"Merge selected tables\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   
                   ResourceSystemClient`DefinitionNotebook`DocumentationTools`\
TableMerge[]]; Null]]]}, Appearance -> None, Method -> "Queued"], 
           ActionMenuBox[
            ButtonBox[
             StyleBox[
             "\"Cells\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\
\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> 
              False], ButtonFunction :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = ButtonNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = 
                  ProgressIndicator[Appearance -> "Necklace"]; 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, Null]; CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], 
             FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[
               FEPrivate`If[
                CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, {
                FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> 
               "System"], Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC
1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL
AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x
                 "], "Byte", ColorSpace -> 
                 "RGB", Interleaving -> True], "Hover" -> 
               Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7
qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB
IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw==
                 "], "Byte", 
                 ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> 
               Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/
m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg
oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg
                 "], "Byte", 
                 ColorSpace -> "RGB", Interleaving -> True]}, Background -> 
             GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, 
             Evaluator -> Automatic], {
            "\"Insert comment for reviewer\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   
                   ResourceSystemClient`DefinitionNotebook`DocumentationTools`\
CommentInsert[]]; Null]]], "\"Mark/unmark selected cells as comments\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   
                   ResourceSystemClient`DefinitionNotebook`DocumentationTools`\
CommentToggle[]]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   
                   ResourceSystemClient`DefinitionNotebook`DocumentationTools`\
ExclusionToggle[]]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, 
         GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
         AutoDelete -> False, 
         GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
             GrayLevel[0.9]}}, 
         GridBoxFrame -> {
          "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
         GridBoxSpacings -> {
          "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, 
         FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], 
   Cell[
    StyleData["MainGridTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        GridBox[{{
           TagBox[
            GridBox[{{
               GraphicsBox[{
                 Thickness[0.0222], {
                  FaceForm[{
                    RGBColor[0.8745, 0.2784, 0.0314], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                   3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 
                   0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 
                   34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 
                   34.926}, {45., 22.5}}}]}, {
                  FaceForm[{
                    RGBColor[1., 1., 1.], 
                    Opacity[1.]}], 
                  
                  FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                    3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                    0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 
                    3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
                    0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 
                    3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW
RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg
oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c
pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx
8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6
UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U
PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT
MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U
9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f
rwDng+PHSQES31csIPF7UREePgCOg02w
                    "], {{19.051, 14.242}, {
                    19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {
                    21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, {
                    21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, {
                    23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, {
                    24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, {
                    25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578,
                     23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 
                    18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 
                    17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 
                    18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 
                    15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 
                    24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 
                    26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 
                    14.234}}}]}}, {
                ImageSize -> {Automatic, 32}, 
                 ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> 
                 Scaled[0.25], AspectRatio -> Automatic, Background -> 
                 RGBColor[0.9882, 0.4196, 0.2039], ImageSize -> {45., 45.}, 
                 PlotRange -> {{0., 45.}, {0., 45.}}}], 
               StyleBox[
                TagBox[
                 GridBox[{{
                    StyleBox[
                    "\"Function Resource\"", FontFamily -> "Source Sans Pro", 
                    FontWeight -> "SemiBold", StripOnInput -> False], 
                    StyleBox[
                    "\"DEFINITION NOTEBOOK\"", FontFamily -> 
                    "Source Sans Pro", FontTracking -> "SemiCondensed", 
                    FontVariations -> {"CapsType" -> "AllSmallCaps"}, 
                    StripOnInput -> False]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "ColumnsIndexed" -> {2 -> GrayLevel[1]}, 
                    "Rows" -> {{None}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                 "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], 
                StripOnInput -> False]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
           "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", 
           "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", 
           "\[SpanFromLeft]", 
           ItemBox[
            TemplateBox[{
              StyleBox[
              "\"Function Repository \[RightGuillemet]  \"", "Text", 
               FontColor -> GrayLevel[1], StripOnInput -> False], 
              "https://resources.wolframcloud.com/FunctionRepository"}, 
             "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> 
            False]}, {
           TemplateBox[{
             
             TemplateBox[{
              "\"Open Sample\"", 
               "\"View a completed sample definition notebook\""}, 
              "PrettyTooltipTemplate"], 
             ResourceSystemClient`DefinitionNotebook`ViewExampleNotebook[
              ButtonNotebook[]]& , 
             "\"View a completed sample definition notebook\"", False}, 
            "OrangeButtonTemplate"], 
           TemplateBox[{
             
             TemplateBox[{
              "\"Style Guidelines\"", 
               "\"View general guidelines for authoring resource \
functions\""}, "PrettyTooltipTemplate"], 
             ResourceSystemClient`DefinitionNotebook`ViewStyleGuidelines[
              ButtonNotebook[]]& , 
             "\"View general guidelines for authoring resource functions\"", 
             False}, "OrangeButtonTemplate"], 
           TemplateBox[{
             TemplateBox[{
               TagBox[
                GridBox[{{"\"Tools\"", 
                   PaneSelectorBox[{False -> GraphicsBox[{
                    GrayLevel[1], 
                    AbsoluteThickness[1], 
                    LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], 
                    LineBox[{{0., 0.65}, {0., -0.65}}], 
                    LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 10, 
                    PlotRangePadding -> None, Background -> None], True -> 
                    GraphicsBox[{
                    GrayLevel[1], 
                    AbsoluteThickness[1], 
                    LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], 
                    LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 10, 
                    PlotRangePadding -> None, Background -> None]}, 
                    Dynamic[
                    CurrentValue[
                    EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]],
                     BaselinePosition -> Scaled[0.1]]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], 
               "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], 
             ResourceSystemClient`DefinitionNotebook`ToggleToolbar[
              ButtonNotebook[]]& , "\"Toggle documentation toolbar\"", False},
             "OrangeButtonTemplate"], 
           TagBox[
            
            GridBox[{{"\"\"", "\"\""}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
             False, GridBoxDividers -> {
              "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, 
             GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}},
              GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> 
             RGBColor[0.9941, 0.7098, 0.602]], "Grid"], 
           TemplateBox[{
             
             TemplateBox[{
              "\"Check\"", "\"Check notebook for potential errors\""}, 
              "PrettyTooltipTemplate"], 
             ResourceSystemClient`DefinitionNotebook`CheckDefinitionNotebook[
              ButtonNotebook[]]& , "\"Check notebook for potential errors\"", 
             False}, "OrangeButtonTemplate"], 
           ActionMenuBox[
            
            TemplateBox[{
             "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, 
             "OrangeButtonTemplate"], {
            "\"In a notebook\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = 
                  ProgressIndicator[Appearance -> "Necklace"]; 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   ResourceSystemClient`DefinitionNotebook`PreviewResource[
                    ButtonNotebook[], "Notebook"]]; 
                 CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"On the cloud\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = 
                  ProgressIndicator[Appearance -> "Necklace"]; 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   ResourceSystemClient`DefinitionNotebook`PreviewResource[
                    ButtonNotebook[], "Cloud"]]; 
                 CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]]}, Appearance -> None, 
            Method -> "Queued"], 
           ActionMenuBox[
            
            TemplateBox[{
             "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, 
             "OrangeButtonTemplate"], {
            "\"Locally on this computer\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = 
                  ProgressIndicator[Appearance -> "Necklace"]; 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   ResourceSystemClient`DefinitionNotebook`DisplayStripe[
                    ButtonNotebook[], 
                    ResourceSystemClient`DefinitionNotebook`DeployResource[
                    ButtonNotebook[], "Local"]]]; 
                 CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], 
             "\"For my cloud account\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = 
                  ProgressIndicator[Appearance -> "Necklace"]; 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   ResourceSystemClient`DefinitionNotebook`DisplayStripe[
                    ButtonNotebook[], 
                    ResourceSystemClient`DefinitionNotebook`DeployResource[
                    ButtonNotebook[], "CloudPrivate"]]]; 
                 CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], 
             "\"Publicly in the cloud\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = 
                  ProgressIndicator[Appearance -> "Necklace"]; 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   ResourceSystemClient`DefinitionNotebook`DisplayStripe[
                    ButtonNotebook[], 
                    ResourceSystemClient`DefinitionNotebook`DeployResource[
                    ButtonNotebook[], "CloudPublic"]]]; 
                 CurrentValue[
                   
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], 
             "\"In this session only (without documentation)\"" :> 
             With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$ = InputNotebook[], 
                ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\
 = $ContextPath}, 
               Quiet[
                
                Block[{$ContextPath = 
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\
cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, 
                 CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = 
                  ProgressIndicator[Appearance -> "Necklace"]; 
                 Needs["ResourceSystemClient`DefinitionNotebook`"]; 
                 ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, 
                   ResourceSystemClient`DefinitionNotebook`DisplayStripe[
                    ButtonNotebook[], 
                    ResourceSystemClient`DefinitionNotebook`DeployResource[
                    ButtonNotebook[], "KernelSession"]]]; 
                 CurrentValue[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]]}, Appearance -> None, 
            Method -> "Queued"], 
           ItemBox[
            StyleBox[
             DynamicBox[
              ToBoxes[
               CurrentValue[
                EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], 
               StandardForm], Evaluator -> "System", 
              Initialization :> (CurrentValue[
                 EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = 
               "")], "Text", 
             GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, 
            StripOnInput -> False], 
           DynamicBox[
            ToBoxes[
             If[
              CurrentValue[
               EvaluationNotebook[], {
               TaggingRules, "SubmissionReviewData", "Review"}, False], 
              RawBoxes[
               TemplateBox[{
                 TemplateBox[{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Thickness[0.0635], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=

                    "]]}, {
                    FaceForm[
                    RGBColor[0.9608, 0.7059, 0.498, 1.]]}, StripOnInput -> 
                    False], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
                    "]], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 
                    1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
                     1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
                    "]]}, {
                    FaceForm[
                    RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, 
                    ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, 
                    AspectRatio -> 1.15], "\"Submit Update\""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, 
                    "Rows" -> {{0}}}], "Grid"], 
                   "\"Submit changes to update your resource submission\""}, 
                  "PrettyTooltipTemplate"], 
                 With[{ResourceSystemClientTools`BuildDefinitionNotebook`\
Private`nb = ButtonNotebook[]}, 
                  ResourceSystemClient`DefinitionNotebook`DisplayStripe[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb, 
                   
                   ResourceSystemClient`DefinitionNotebook`\
SubmitRepositoryUpdate[
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb], "ShowProgress" -> True]]& , 
                 "\"Submit changes to update your resource submission\"", 
                 True}, "OrangeButtonTemplate"]], 
              RawBoxes[
               TemplateBox[{
                 TemplateBox[{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Thickness[0.0635], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP
p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4=

                    "]]}, {
                    FaceForm[
                    RGBColor[0.9608, 0.7059, 0.498, 1.]]}, StripOnInput -> 
                    False], 
                    StyleBox[{
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+
Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG
QUPVNSjgp+HmIWgAG/wcEg==
                    "]], 
                    
                    FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2,
                     0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 
                    0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1,
                     0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                    2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 
                    1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0,
                     1, 0}, {0, 1, 0}}}, CompressedData["
1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO
u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H
eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw==
                    "]]}, {
                    FaceForm[
                    RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, 
                    ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, 
                    AspectRatio -> 1.15], "\"Submit to Repository\""}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, 
                    "Rows" -> {{0}}}], "Grid"], 
                   "\"Submit your function to the Wolfram Function Repository\
\""}, "PrettyTooltipTemplate"], 
                 With[{ResourceSystemClientTools`BuildDefinitionNotebook`\
Private`nb = ButtonNotebook[]}, 
                  ResourceSystemClient`DefinitionNotebook`DisplayStripe[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb, 
                   ResourceSystemClient`DefinitionNotebook`SubmitRepository[
                   
                   ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb], "ShowProgress" -> True]]& , 
                 "\"Submit your function to the Wolfram Function \
Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> 
            "System", SingleEvaluation -> True]}}, 
         GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, 
         AutoDelete -> False, 
         GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> {
             RGBColor[0.9882, 0.4196, 0.2039], 
             RGBColor[0.9216, 0.3412, 0.1059]}}, 
         GridBoxFrame -> {
          "Columns" -> False, 
           "RowsIndexed" -> {
            1 -> RGBColor[0.9882, 0.4196, 0.2039], 2 -> 
             RGBColor[0.9216, 0.3412, 0.1059]}}, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
         GridBoxSpacings -> {
          "Columns" -> {5, {0.9}, 5}, 
           "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> 
         RGBColor[0.9882, 0.4196, 0.2039]], "Grid"]& )}], 
   Cell[
    StyleData["ReviewerCommentLabelTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (TagBox[
        GridBox[{{#, 
           TemplateBox[{
             GraphicsBox[{
               Thickness[0.0222], {
                FaceForm[{
                  RGBColor[0.8745, 0.2784, 0.0314], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 
                 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 
                 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, {
                 10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {
                 45., 22.5}}}]}, {
                FaceForm[{
                  RGBColor[1., 1., 1.], 
                  Opacity[1.]}], 
                
                FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {
                  1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
                   3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 
                  0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                  1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 
                  2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 
                  3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 
                  3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 
                  0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {
                  0, 1, 0}}}, {CompressedData["
1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e
ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa
4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW
RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg
oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c
pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx
8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6
UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U
PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT
MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U
9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f
rwDng+PHSQES31csIPF7UREePgCOg02w
                  "], {{19.051, 14.242}, {
                  19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {
                  21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, {
                  21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, {
                  23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, {
                  24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, {
                  25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 
                  23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 
                  18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 
                  17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 
                  18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 
                  15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 
                  24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 
                  26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 
                  14.234}}}]}}, {
              ImageSize -> 12, AspectRatio -> Automatic, Background -> None, 
               ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}],
              "Wolfram Function Repository Reviewer"}, 
            "PrettyTooltipTemplate"]}}, 
         GridBoxAlignment -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> 
         False, GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
         GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], 
   Cell[
    StyleData["CommentCellLabelTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
        TagBox[
         GridBox[{{
            StyleBox[#, FontSize -> 11]}, {
            StyleBox[
             DynamicBox[
              ToBoxes[
               DateString[
                TimeZoneConvert[
                 DateObject[#2, TimeZone -> 0]], {
                "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", 
                 "Minute"}], StandardForm], SingleEvaluation -> True], 
             FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
          AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], 
         "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], 
   Cell[
    StyleData["OrangeButtonTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[
        StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> 
         "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> 
         GrayLevel[1], StripOnInput -> False], ButtonFunction :> 
        With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$ = 
           ButtonNotebook[], 
           ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \
$ContextPath}, 
          Quiet[
           
           Block[{$ContextPath = 
             ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$, 
             ResourceSystemClient`$AsyncronousResourceInformationUpdates = 
             False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; 
            ResourceSystemClient`DefinitionNotebook`CheckForUpdates[
             ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$, 
              If[
               TrueQ[#4], 
               
               With[{ResourceSystemClientTools`BuildDefinitionNotebook`\
Private`nb = ButtonNotebook[]}, 
                CurrentValue[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb, {TaggingRules, "StatusMessage"}] = 
                 ProgressIndicator[Appearance -> "Necklace"]; #2[]; 
                CurrentValue[
                  ResourceSystemClientTools`BuildDefinitionNotebook`Private`\
nb, {TaggingRules, "StatusMessage"}] = ""; Null], 
               #2[]]]; Null]]], FrameMargins -> {{5, 5}, {0, 0}}, 
        Appearance -> {"Default" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu
mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI
04h3G5E+JT7ciIkFYuIUAMJyEaA=
            "], "Byte", ColorSpace -> "RGB", 
            Interleaving -> True], "Hover" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX
6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI
04h3G5E+JT7ciIkFYuIUAJxlBG4=
            "], "Byte", ColorSpace -> "RGB", 
            Interleaving -> True], "Pressed" -> Image[CompressedData["
1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz
UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt
28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR
TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK
            "], "Byte", 
            ColorSpace -> "RGB", Interleaving -> True]}, Background -> 
        RGBColor[0.9216, 0.3412, 0.1059], Method -> "Queued", 
        ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], 
   Cell[
    StyleData["SuggestionGridTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (StyleBox[
        FrameBox[
         AdjustmentBox[
          TagBox[
           GridBox[{{
              
              TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, 
               "SuggestionIconTemplate"], 
              PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> 
               Baseline, ImageSize -> Full], 
              AdjustmentBox[
               TemplateBox[{
                 ActionMenuBox[
                  TagBox[
                   PaneSelectorBox[{False -> GraphicsBox[{
                    EdgeForm[
                    Directive[
                    GrayLevel[1, 0], 
                    Thickness[0.025]]], 
                    FaceForm[#4], 
                    
                    RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 
                    0.2], 
                    Thickness[0.15], #5, 
                    LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, 
                    ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> 
                    GraphicsBox[{
                    EdgeForm[
                    Directive[#5, 
                    Thickness[0.025]]], 
                    FaceForm[#2], 
                    
                    RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 
                    0.2], 
                    Thickness[0.15], 
                    GrayLevel[1], 
                    LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, 
                    ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, 
                    Dynamic[
                    CurrentValue["MouseOver"]], ImageSize -> Automatic, 
                    FrameMargins -> 0], 
                   MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, 
                  Method -> "Queued"], "\"View suggestions\""}, 
                "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, 
            GridBoxAlignment -> {
             "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> 
            False, GridBoxItemSize -> {
             "Columns" -> {Automatic, Automatic, Fit}, 
              "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], 
          BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], 
         RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, 
         FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, 
         StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, 
        FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", 
        FontTracking -> "Plain", 
        PrivateFontOptions -> {"OperatorSubstitution" -> False}, 
        LineBreakWithin -> False]& )}], 
   Cell[
    StyleData["SuggestionIconTemplate"], 
    TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{
         Thickness[0.0556], 
         StyleBox[{
           
           FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
             3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO
m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD
jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh
MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d
            "]]}, 
          FaceForm[#]], 
         StyleBox[{
           
           FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1,
              0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
              3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.1753, 7.4169}, {
             7.7969, 11.3084}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 
             11.3084}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData["
1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA
qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed
HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2
qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/sWTrBh9WVTg5rt0
5zz/3akCt//sGRBQgbsPxoe5H8aH+Q+mH+Z/mPmw8IHZDws/mPtg4Yse/gBw
FJLS
             "]}]}, 
          FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> 
        Automatic, BaselinePosition -> Scaled[0.1]]& )}], 
   Cell[
    StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], 
    CellMargins -> {{66, 10}, {0, 8}}, 
    StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, 
    CellEventActions -> {
     "ReturnKeyDown" :> 
      With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb = 
         Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; 
        NotebookWrite[
         ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, 
          Cell["", "UsageDescription"], All]; 
        SelectionMove[
         ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Before,
           CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ShowAutoStyles -> False, ShowCodeAssist -> False, 
    CodeAssistOptions -> {"DynamicHighlighting" -> False}, 
    LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", 
    FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], 
   Cell[
    StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], 
    CellMargins -> {{86, 10}, {7, 0}}, 
    StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> 
    "OutputGrouping", 
    CellEventActions -> {
     "ReturnKeyDown" :> 
      With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb = 
         Notebooks[
           EvaluationCell[]]}, SelectionMove[
          EvaluationCell[], After, Cell]; 
        NotebookWrite[
         ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, 
          Cell[
           BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; 
        SelectionMove[
         ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Before,
           CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[
          SelectedNotebook[], After, Cell]; NotebookFind[
          SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, 
          WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[
          SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, 
    ShowAutoSpellCheck -> False], 
   Cell[
    StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> 
    StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], 
    CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, 
    StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> 
    False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], 
   Cell[
    StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], 
    CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], 
    StyleMenuListing -> None, 
    ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
    GridBoxOptions -> {
     FrameStyle -> GrayLevel[0.906], 
      GridBoxAlignment -> {
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}}, 
      GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, 
      GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], 
   Cell[
    StyleData["TableText"], DefaultInlineFormatType -> 
    "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, 
    StyleMenuListing -> None], 
   Cell[
    StyleData["Hyperlink"], FontColor -> RGBColor[0.9216, 0.3412, 0.1059]], 
   Cell[
    StyleData["HyperlinkActive"], FontColor -> 
    RGBColor[0.6144, 0.2275, 0.0706]], 
   Cell[
    StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[
      If[
       CurrentValue["MouseOver"], 
       RGBColor[0.8549, 0.3961, 0.1451], 
       RGBColor[0.0196, 0.2863, 0.651]]]], 
   Cell[
    StyleData["StringTypeLink"], 
    TemplateBoxOptions -> {DisplayFunction :> (TagBox[
        DynamicBox[
         If[
          CurrentValue["MouseOver"], 
          ButtonBox[
           StyleBox[#, FontColor -> RGBColor[0.9686, 0.4667, 0.]], 
           ButtonData -> #2], 
          ButtonBox[#, ButtonData -> #2]]], 
        MouseAppearanceTag["LinkHand"]]& )}, 
    ButtonBoxOptions -> {
     BaseStyle -> {FontColor -> GrayLevel[0.4667], "Link"}}], 
   Cell[
    StyleData["InlineFormula"], 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, 
    SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, 
    FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, 
    ButtonBoxOptions -> {Appearance -> {Automatic, None}}, 
    FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, 
    GridBoxOptions -> {
     GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}}], 
   Cell[
    StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> 
    Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, 
    CellGroupingRules -> {"SectionGrouping", 58}, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, 
    CellLabelAutoDelete -> True, TabFilling -> 
    "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, 
    StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, 
    FontSlant -> "Plain", FontColor -> GrayLevel[0.9059]], 
   Cell[
    StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], 
   Cell[
    StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]],
     Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, 
    CellMargins -> {{66, 14}, {15, -5}}, 
    CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> 
    GrayLevel[
      Rational[77, 85]]], 
   Cell[
    StyleData["Subsection"], Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], 
   
   Cell[
    StyleData["Subsubsection"], Evaluatable -> True, 
    CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], 
   
   Cell[
    StyleData["Excluded"], 
    CellBracketOptions -> {
     "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, 
    GeneratedCellStyles -> {
     "Graphics" -> {"Graphics", "Excluded"}, 
      "Message" -> {"Message", "MSG", "Excluded"}, 
      "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, 
      "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 
    4, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], 
   Cell[
    StyleData["Comment", StyleDefinitions -> StyleData["Text"]], 
    CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, 
    CellElementSpacings -> {"ClosedCellHeight" -> 0}, 
    GeneratedCellStyles -> {
     "Graphics" -> {"Graphics", "Comment"}, 
      "Message" -> {"Message", "MSG", "Comment"}, 
      "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, 
      "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> 
    RGBColor[0.8807, 0.611, 0.1421], 
    CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], 
    Background -> RGBColor[0.9821, 0.9417, 0.8713]], 
   Cell[
    StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], 
    GeneratedCellStyles -> {
     "Graphics" -> {"Graphics", "AuthorComment"}, 
      "Message" -> {"Message", "MSG", "AuthorComment"}, 
      "Output" -> {"Output", "AuthorComment"}, 
      "Print" -> {"Print", "AuthorComment"}, 
      "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, 
    CellFrameColor -> RGBColor[0.3684, 0.5068, 0.7098], Background -> 
    RGBColor[0.9053, 0.926, 0.9565]], 
   Cell[
    StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], 
    GeneratedCellStyles -> {
     "Graphics" -> {"Graphics", "ReviewerComment"}, 
      "Message" -> {"Message", "MSG", "ReviewerComment"}, 
      "Output" -> {"Output", "ReviewerComment"}, 
      "Print" -> {"Print", "ReviewerComment"}, 
      "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, 
    CellFrameColor -> RGBColor[0.5602, 0.6916, 0.1949], Background -> 
    RGBColor[0.934, 0.9537, 0.8792]], 
   Cell[
    StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], 
    ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> 
    GrayLevel[0.5]], 
   Cell[
    StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], 
   Cell[
    StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> 
    GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> 
  "12.1 for Microsoft Windows (64-bit) (January 14, 2020)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"],
ExpressionUUID->"61a60047-fcbe-42e0-a9ce-e1050bb74ab1"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Name"->{
  Cell[1486, 35, 569, 10, 98, "Title",ExpressionUUID->"2af0ad51-4c43-404c-81ba-a6a5a9908097",
   CellTags->{"Name", "TabNext", "TemplateCell", "Title"},
   CellID->863144461]},
 "TabNext"->{
  Cell[1486, 35, 569, 10, 98, "Title",ExpressionUUID->"2af0ad51-4c43-404c-81ba-a6a5a9908097",
   CellTags->{"Name", "TabNext", "TemplateCell", "Title"},
   CellID->863144461],
  Cell[2058, 47, 729, 13, 34, "Text",ExpressionUUID->"a173ceb8-55f8-4b3d-8456-1a0ace02a780",
   CellTags->{"Description", "TabNext", "TemplateCell"},
   CellID->997449289],
  Cell[6349, 166, 256, 6, 27, "UsageInputs",ExpressionUUID->"9c034a8b-f25c-421d-983c-4035d2bdc61f",
   CellTags->{"TabNext", "TemplateCell"},
   CellID->129653703],
  Cell[6608, 174, 769, 25, 26, "UsageDescription",ExpressionUUID->"9a85182c-ac59-4e9e-9988-41073b9c6506",
   CellTags->"TabNext",
   CellID->584004037],
  Cell[7414, 204, 283, 7, 27, "UsageInputs",ExpressionUUID->"6b4874a7-e64c-41f1-9af0-f60acedf4462",
   CellTags->{"TabNext", "TemplateCell"},
   CellID->5715615],
  Cell[7700, 213, 778, 25, 26, "UsageDescription",ExpressionUUID->"d092ae1c-22e7-47c9-884a-3dc8909f3f6b",
   CellTags->"TabNext",
   CellID->312176784],
  Cell[22053, 570, 556, 9, 70, "Text",ExpressionUUID->"83bdb7f2-a47a-4d0c-9fcf-f666ee832dc3",
   CellTags->{"TemplateCell", "TabNext"},
   CellID->184851438],
  Cell[23380, 606, 464, 8, 70, "Item",ExpressionUUID->"10a571a6-5bbc-4929-821b-1c98aa0ac836",
   CellTags->"TabNext",
   CellID->123227828],
  Cell[31000, 863, 553, 9, 70, "Item",ExpressionUUID->"3298917c-9fcc-4cc0-88dc-a6633fc473c0",
   CellTags->{"TemplateCell", "TabNext"},
   CellID->258610070],
  Cell[32879, 910, 508, 8, 70, "Item",ExpressionUUID->"74702218-538e-4ac5-8541-353333b4b1b1",
   CellTags->"TabNext",
   CellID->960273585],
  Cell[34236, 946, 496, 8, 70, "Text",ExpressionUUID->"e1e88309-a56b-4abb-afa4-f2bcac9506c2",
   CellTags->"TabNext",
   CellID->343081869],
  Cell[35433, 981, 485, 8, 70, "Item",ExpressionUUID->"b2c56e7d-b35e-405e-b0c8-0b714d79cbb0",
   CellTags->"TabNext",
   CellID->485448166],
  Cell[37236, 1041, 509, 8, 34, "Text",ExpressionUUID->"a1a45318-5be9-4b54-b696-1fb58cfc719c",
   CellTags->"TabNext",
   CellID->567921317],
  Cell[38551, 1077, 495, 8, 34, "Text",ExpressionUUID->"a11d7bdd-cd84-4ae3-b0be-445b17151ed8",
   CellTags->"TabNext",
   CellID->920818074]},
 "TemplateCell"->{
  Cell[1486, 35, 569, 10, 98, "Title",ExpressionUUID->"2af0ad51-4c43-404c-81ba-a6a5a9908097",
   CellTags->{"Name", "TabNext", "TemplateCell", "Title"},
   CellID->863144461],
  Cell[2058, 47, 729, 13, 34, "Text",ExpressionUUID->"a173ceb8-55f8-4b3d-8456-1a0ace02a780",
   CellTags->{"Description", "TabNext", "TemplateCell"},
   CellID->997449289],
  Cell[3761, 89, 724, 18, 87, "Input",ExpressionUUID->"3ec47585-955f-4bd7-83d9-60238598b7ea",
   CellTags->"TemplateCell",
   CellID->473903061],
  Cell[6349, 166, 256, 6, 27, "UsageInputs",ExpressionUUID->"9c034a8b-f25c-421d-983c-4035d2bdc61f",
   CellTags->{"TabNext", "TemplateCell"},
   CellID->129653703],
  Cell[7414, 204, 283, 7, 27, "UsageInputs",ExpressionUUID->"6b4874a7-e64c-41f1-9af0-f60acedf4462",
   CellTags->{"TabNext", "TemplateCell"},
   CellID->5715615],
  Cell[17490, 451, 83, 2, 54, "Subsection",ExpressionUUID->"7fd47d6c-75fa-4bf7-b306-80af637155ed",
   CellTags->"TemplateCell",
   CellID->596536045],
  Cell[22053, 570, 556, 9, 70, "Text",ExpressionUUID->"83bdb7f2-a47a-4d0c-9fcf-f666ee832dc3",
   CellTags->{"TemplateCell", "TabNext"},
   CellID->184851438],
  Cell[31000, 863, 553, 9, 70, "Item",ExpressionUUID->"3298917c-9fcc-4cc0-88dc-a6633fc473c0",
   CellTags->{"TemplateCell", "TabNext"},
   CellID->258610070]},
 "Title"->{
  Cell[1486, 35, 569, 10, 98, "Title",ExpressionUUID->"2af0ad51-4c43-404c-81ba-a6a5a9908097",
   CellTags->{"Name", "TabNext", "TemplateCell", "Title"},
   CellID->863144461]},
 "Description"->{
  Cell[2058, 47, 729, 13, 34, "Text",ExpressionUUID->"a173ceb8-55f8-4b3d-8456-1a0ace02a780",
   CellTags->{"Description", "TabNext", "TemplateCell"},
   CellID->997449289]},
 "Definition"->{
  Cell[2812, 64, 946, 23, 67, "Section",ExpressionUUID->"a80451ff-5bd7-416a-8d24-05972421da7f",
   CellTags->{"Definition", "Function", "TemplateCellGroup"},
   CellID->271561301]},
 "Function"->{
  Cell[2812, 64, 946, 23, 67, "Section",ExpressionUUID->"a80451ff-5bd7-416a-8d24-05972421da7f",
   CellTags->{"Definition", "Function", "TemplateCellGroup"},
   CellID->271561301]},
 "TemplateCellGroup"->{
  Cell[2812, 64, 946, 23, 67, "Section",ExpressionUUID->"a80451ff-5bd7-416a-8d24-05972421da7f",
   CellTags->{"Definition", "Function", "TemplateCellGroup"},
   CellID->271561301],
  Cell[4627, 118, 1697, 44, 54, "Subsection",ExpressionUUID->"b1dc6be5-6364-4565-957b-34e898b848db",
   CellTags->{"TemplateCellGroup", "Usage"},
   CellID->657272351],
  Cell[8527, 244, 1187, 26, 54, "Subsection",ExpressionUUID->"90415fb2-a522-420d-9dfe-7c470efeca96",
   CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
   CellID->25317349],
  Cell[10831, 302, 6634, 145, 67, "Section",ExpressionUUID->"b4c3f969-c22f-4e18-a838-d2ab29937dc1",
   CellTags->{"Examples", "TemplateCellGroup"},
   CellID->487306095],
  Cell[21294, 548, 756, 20, 70, "Subsection",ExpressionUUID->"7569af47-ac42-4961-9610-148eb5901295",
   CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
   CellID->581484318],
  Cell[22646, 584, 731, 20, 70, "Subsection",ExpressionUUID->"71bcee1c-59ca-4876-9959-7cf6a19f1a7e",
   CellTags->{"Keywords", "TemplateCellGroup"},
   CellID->234953024],
  Cell[23881, 619, 130, 3, 70, "Subsection",ExpressionUUID->"9df74503-a8db-4bef-a15c-eb1e0397c3fa",
   CellTags->{"Categories", "TemplateCellGroup"},
   CellID->360699210],
  Cell[30267, 839, 708, 20, 70, "Subsection",ExpressionUUID->"c5a571cc-1fa0-4293-bcd1-06f79acdc08f",
   CellTags->{"Related Symbols", "TemplateCellGroup"},
   CellID->787980732],
  Cell[32118, 888, 758, 20, 70, "Subsection",ExpressionUUID->"fb792539-781c-4a8b-9e4e-2ebebdf25b90",
   CellTags->{"Related Resource Objects", "TemplateCellGroup"},
   CellID->202501204],
  Cell[33424, 923, 809, 21, 70, "Subsection",ExpressionUUID->"0e9f3bf7-64a4-41bd-9256-4920cf1b80c9",
   CellTags->{"Source/Reference Citation", "TemplateCellGroup"},
   CellID->720896096],
  Cell[34769, 959, 661, 20, 70, "Subsection",ExpressionUUID->"dd6fe479-ae70-482d-9904-d044ccbbb8ef",
   CellTags->{"Links", "TemplateCellGroup"},
   CellID->282884713],
  Cell[35955, 994, 836, 22, 70, "Subsection",ExpressionUUID->"56b3d7c0-6e13-44f9-a328-4527edf5ece8",
   CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
   CellID->899735658],
  Cell[37102, 1036, 131, 3, 53, "Section",ExpressionUUID->"b060eaab-d19e-4c05-8ac2-410a37bb2667",
   CellTags->{"Author Notes", "TemplateCellGroup"},
   CellID->871584409],
  Cell[37782, 1054, 766, 21, 67, "Section",ExpressionUUID->"8dfe6dd0-10cb-4ef0-a13a-9b941133c627",
   CellTags->{"Submission Notes", "TemplateCellGroup"},
   CellID->22658912]},
 "Documentation"->{
  Cell[4522, 112, 80, 2, 67, "Section",ExpressionUUID->"15313654-3593-4db0-8c01-3b835eedbabb",
   CellTags->"Documentation",
   CellID->363488142]},
 "Usage"->{
  Cell[4627, 118, 1697, 44, 54, "Subsection",ExpressionUUID->"b1dc6be5-6364-4565-957b-34e898b848db",
   CellTags->{"TemplateCellGroup", "Usage"},
   CellID->657272351]},
 "Details & Options"->{
  Cell[8527, 244, 1187, 26, 54, "Subsection",ExpressionUUID->"90415fb2-a522-420d-9dfe-7c470efeca96",
   CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
   CellID->25317349]},
 "Notes"->{
  Cell[8527, 244, 1187, 26, 54, "Subsection",ExpressionUUID->"90415fb2-a522-420d-9dfe-7c470efeca96",
   CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
   CellID->25317349]},
 "CommentCell"->{
  Cell[9717, 272, 1065, 24, 58, "ReviewerComment",ExpressionUUID->"d318b88a-cc49-4493-b69d-f372c9291866",
   CellTags->{"CommentCell", "ReviewerComment"},
   CellID->615058931]},
 "ReviewerComment"->{
  Cell[9717, 272, 1065, 24, 58, "ReviewerComment",ExpressionUUID->"d318b88a-cc49-4493-b69d-f372c9291866",
   CellTags->{"CommentCell", "ReviewerComment"},
   CellID->615058931]},
 "Examples"->{
  Cell[10831, 302, 6634, 145, 67, "Section",ExpressionUUID->"b4c3f969-c22f-4e18-a838-d2ab29937dc1",
   CellTags->{"Examples", "TemplateCellGroup"},
   CellID->487306095]},
 "Source & Additional Information"->{
  Cell[21153, 542, 116, 2, 67, "Section",ExpressionUUID->"b05774f4-47af-42df-9d32-caf91f6879b5",
   CellTags->"Source & Additional Information",
   CellID->348526984]},
 "Contributed By"->{
  Cell[21294, 548, 756, 20, 70, "Subsection",ExpressionUUID->"7569af47-ac42-4961-9610-148eb5901295",
   CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
   CellID->581484318]},
 "ContributorInformation"->{
  Cell[21294, 548, 756, 20, 70, "Subsection",ExpressionUUID->"7569af47-ac42-4961-9610-148eb5901295",
   CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
   CellID->581484318]},
 "Keywords"->{
  Cell[22646, 584, 731, 20, 70, "Subsection",ExpressionUUID->"71bcee1c-59ca-4876-9959-7cf6a19f1a7e",
   CellTags->{"Keywords", "TemplateCellGroup"},
   CellID->234953024]},
 "Categories"->{
  Cell[23881, 619, 130, 3, 70, "Subsection",ExpressionUUID->"9df74503-a8db-4bef-a15c-eb1e0397c3fa",
   CellTags->{"Categories", "TemplateCellGroup"},
   CellID->360699210]},
 "CategoriesCell"->{
  Cell[24014, 624, 6216, 210, 70, "Output",ExpressionUUID->"350cbd77-c092-49ed-8c82-e9b376eb8d55",
   CellTags->"CategoriesCell",
   CellID->1045044894]},
 "Related Symbols"->{
  Cell[30267, 839, 708, 20, 70, "Subsection",ExpressionUUID->"c5a571cc-1fa0-4293-bcd1-06f79acdc08f",
   CellTags->{"Related Symbols", "TemplateCellGroup"},
   CellID->787980732]},
 "Related Resource Objects"->{
  Cell[32118, 888, 758, 20, 70, "Subsection",ExpressionUUID->"fb792539-781c-4a8b-9e4e-2ebebdf25b90",
   CellTags->{"Related Resource Objects", "TemplateCellGroup"},
   CellID->202501204]},
 "Source/Reference Citation"->{
  Cell[33424, 923, 809, 21, 70, "Subsection",ExpressionUUID->"0e9f3bf7-64a4-41bd-9256-4920cf1b80c9",
   CellTags->{"Source/Reference Citation", "TemplateCellGroup"},
   CellID->720896096]},
 "Links"->{
  Cell[34769, 959, 661, 20, 70, "Subsection",ExpressionUUID->"dd6fe479-ae70-482d-9904-d044ccbbb8ef",
   CellTags->{"Links", "TemplateCellGroup"},
   CellID->282884713]},
 "Tests"->{
  Cell[35955, 994, 836, 22, 70, "Subsection",ExpressionUUID->"56b3d7c0-6e13-44f9-a328-4527edf5ece8",
   CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
   CellID->899735658]},
 "VerificationTests"->{
  Cell[35955, 994, 836, 22, 70, "Subsection",ExpressionUUID->"56b3d7c0-6e13-44f9-a328-4527edf5ece8",
   CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
   CellID->899735658]},
 "Author Notes"->{
  Cell[37102, 1036, 131, 3, 53, "Section",ExpressionUUID->"b060eaab-d19e-4c05-8ac2-410a37bb2667",
   CellTags->{"Author Notes", "TemplateCellGroup"},
   CellID->871584409]},
 "Submission Notes"->{
  Cell[37782, 1054, 766, 21, 67, "Section",ExpressionUUID->"8dfe6dd0-10cb-4ef0-a13a-9b941133c627",
   CellTags->{"Submission Notes", "TemplateCellGroup"},
   CellID->22658912]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Name", 183835, 3841},
 {"TabNext", 184026, 3845},
 {"TemplateCell", 186195, 3888},
 {"Title", 187500, 3913},
 {"Description", 187695, 3917},
 {"Definition", 187886, 3921},
 {"Function", 188083, 3925},
 {"TemplateCellGroup", 188289, 3929},
 {"Documentation", 190834, 3972},
 {"Usage", 190995, 3976},
 {"Details & Options", 191189, 3980},
 {"Notes", 191391, 3984},
 {"CommentCell", 191599, 3988},
 {"ReviewerComment", 191800, 3992},
 {"Examples", 191994, 3996},
 {"Source & Additional Information", 192204, 4000},
 {"Contributed By", 192394, 4004},
 {"ContributorInformation", 192628, 4008},
 {"Keywords", 192848, 4012},
 {"Categories", 193038, 4016},
 {"CategoriesCell", 193233, 4020},
 {"Related Symbols", 193410, 4024},
 {"Related Resource Objects", 193621, 4028},
 {"Source/Reference Citation", 193842, 4032},
 {"Links", 194044, 4036},
 {"Tests", 194226, 4040},
 {"VerificationTests", 194441, 4044},
 {"Author Notes", 194651, 4048},
 {"Submission Notes", 194848, 4052}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1486, 35, 569, 10, 98, "Title",ExpressionUUID->"2af0ad51-4c43-404c-81ba-a6a5a9908097",
 CellTags->{"Name", "TabNext", "TemplateCell", "Title"},
 CellID->863144461],
Cell[2058, 47, 729, 13, 34, "Text",ExpressionUUID->"a173ceb8-55f8-4b3d-8456-1a0ace02a780",
 CellTags->{"Description", "TabNext", "TemplateCell"},
 CellID->997449289],
Cell[CellGroupData[{
Cell[2812, 64, 946, 23, 67, "Section",ExpressionUUID->"a80451ff-5bd7-416a-8d24-05972421da7f",
 CellTags->{"Definition", "Function", "TemplateCellGroup"},
 CellID->271561301],
Cell[3761, 89, 724, 18, 87, "Input",ExpressionUUID->"3ec47585-955f-4bd7-83d9-60238598b7ea",
 CellTags->"TemplateCell",
 CellID->473903061]
}, Open  ]],
Cell[CellGroupData[{
Cell[4522, 112, 80, 2, 67, "Section",ExpressionUUID->"15313654-3593-4db0-8c01-3b835eedbabb",
 CellTags->"Documentation",
 CellID->363488142],
Cell[CellGroupData[{
Cell[4627, 118, 1697, 44, 54, "Subsection",ExpressionUUID->"b1dc6be5-6364-4565-957b-34e898b848db",
 CellTags->{"TemplateCellGroup", "Usage"},
 CellID->657272351],
Cell[CellGroupData[{
Cell[6349, 166, 256, 6, 27, "UsageInputs",ExpressionUUID->"9c034a8b-f25c-421d-983c-4035d2bdc61f",
 CellTags->{"TabNext", "TemplateCell"},
 CellID->129653703],
Cell[6608, 174, 769, 25, 26, "UsageDescription",ExpressionUUID->"9a85182c-ac59-4e9e-9988-41073b9c6506",
 CellTags->"TabNext",
 CellID->584004037]
}, Open  ]],
Cell[CellGroupData[{
Cell[7414, 204, 283, 7, 27, "UsageInputs",ExpressionUUID->"6b4874a7-e64c-41f1-9af0-f60acedf4462",
 CellTags->{"TabNext", "TemplateCell"},
 CellID->5715615],
Cell[7700, 213, 778, 25, 26, "UsageDescription",ExpressionUUID->"d092ae1c-22e7-47c9-884a-3dc8909f3f6b",
 CellTags->"TabNext",
 CellID->312176784]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8527, 244, 1187, 26, 54, "Subsection",ExpressionUUID->"90415fb2-a522-420d-9dfe-7c470efeca96",
 CellTags->{"Details & Options", "Notes", "TemplateCellGroup"},
 CellID->25317349],
Cell[9717, 272, 1065, 24, 58, "ReviewerComment",ExpressionUUID->"d318b88a-cc49-4493-b69d-f372c9291866",
 CellTags->{"CommentCell", "ReviewerComment"},
 CellID->615058931]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10831, 302, 6634, 145, 67, "Section",ExpressionUUID->"b4c3f969-c22f-4e18-a838-d2ab29937dc1",
 CellTags->{"Examples", "TemplateCellGroup"},
 CellID->487306095],
Cell[CellGroupData[{
Cell[17490, 451, 83, 2, 54, "Subsection",ExpressionUUID->"7fd47d6c-75fa-4bf7-b306-80af637155ed",
 CellTags->"TemplateCell",
 CellID->596536045],
Cell[17576, 455, 149, 2, 34, "Text",ExpressionUUID->"97506f61-4296-4bc3-9c35-883002f7225d",
 CellID->13078159],
Cell[CellGroupData[{
Cell[17750, 461, 263, 5, 28, "Input",ExpressionUUID->"b5b6aac8-1ad9-49ba-b6b7-15a58279dd0c",
 CellID->443871870],
Cell[18016, 468, 1396, 21, 91, "Output",ExpressionUUID->"06028bf5-753d-442b-9a56-f1d3c3f2f00d",
 CellID->317573915]
}, Open  ]],
Cell[19427, 492, 196, 3, 34, "Text",ExpressionUUID->"724b8fb0-f424-4e92-98c2-cd5cd5db0451",
 CellID->666863658],
Cell[CellGroupData[{
Cell[19648, 499, 380, 8, 28, "Input",ExpressionUUID->"64cea6ab-385d-4b38-9cda-30d037663077",
 CellID->354320183],
Cell[20031, 509, 245, 5, 44, "Output",ExpressionUUID->"4fd8396d-24f0-4fde-9217-61a3e66f5212",
 CellID->186719241]
}, Open  ]],
Cell[20291, 517, 184, 2, 34, "Text",ExpressionUUID->"793398f8-f123-469f-9c2d-b3386e8411a6",
 CellID->110458431],
Cell[CellGroupData[{
Cell[20500, 523, 332, 6, 28, "Input",ExpressionUUID->"48678dd2-65cf-411d-84e4-318a4a685ca4",
 CellID->546310043],
Cell[20835, 531, 257, 4, 32, "Output",ExpressionUUID->"a3f4744d-5fba-41a3-a335-94583590c449",
 CellID->39289604]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21153, 542, 116, 2, 67, "Section",ExpressionUUID->"b05774f4-47af-42df-9d32-caf91f6879b5",
 CellTags->"Source & Additional Information",
 CellID->348526984],
Cell[CellGroupData[{
Cell[21294, 548, 756, 20, 70, "Subsection",ExpressionUUID->"7569af47-ac42-4961-9610-148eb5901295",
 CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"},
 CellID->581484318],
Cell[22053, 570, 556, 9, 70, "Text",ExpressionUUID->"83bdb7f2-a47a-4d0c-9fcf-f666ee832dc3",
 CellTags->{"TemplateCell", "TabNext"},
 CellID->184851438]
}, Open  ]],
Cell[CellGroupData[{
Cell[22646, 584, 731, 20, 70, "Subsection",ExpressionUUID->"71bcee1c-59ca-4876-9959-7cf6a19f1a7e",
 CellTags->{"Keywords", "TemplateCellGroup"},
 CellID->234953024],
Cell[23380, 606, 464, 8, 70, "Item",ExpressionUUID->"10a571a6-5bbc-4929-821b-1c98aa0ac836",
 CellTags->"TabNext",
 CellID->123227828]
}, Open  ]],
Cell[CellGroupData[{
Cell[23881, 619, 130, 3, 70, "Subsection",ExpressionUUID->"9df74503-a8db-4bef-a15c-eb1e0397c3fa",
 CellTags->{"Categories", "TemplateCellGroup"},
 CellID->360699210],
Cell[24014, 624, 6216, 210, 70, "Output",ExpressionUUID->"350cbd77-c092-49ed-8c82-e9b376eb8d55",
 CellTags->"CategoriesCell",
 CellID->1045044894]
}, Open  ]],
Cell[CellGroupData[{
Cell[30267, 839, 708, 20, 70, "Subsection",ExpressionUUID->"c5a571cc-1fa0-4293-bcd1-06f79acdc08f",
 CellTags->{"Related Symbols", "TemplateCellGroup"},
 CellID->787980732],
Cell[CellGroupData[{
Cell[31000, 863, 553, 9, 70, "Item",ExpressionUUID->"3298917c-9fcc-4cc0-88dc-a6633fc473c0",
 CellTags->{"TemplateCell", "TabNext"},
 CellID->258610070],
Cell[31556, 874, 513, 8, 70, "Item",ExpressionUUID->"3d1d5a5c-2c60-4a74-8a94-17a9a402a0ae",
 CellID->407248713]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32118, 888, 758, 20, 70, "Subsection",ExpressionUUID->"fb792539-781c-4a8b-9e4e-2ebebdf25b90",
 CellTags->{"Related Resource Objects", "TemplateCellGroup"},
 CellID->202501204],
Cell[32879, 910, 508, 8, 70, "Item",ExpressionUUID->"74702218-538e-4ac5-8541-353333b4b1b1",
 CellTags->"TabNext",
 CellID->960273585]
}, Open  ]],
Cell[CellGroupData[{
Cell[33424, 923, 809, 21, 70, "Subsection",ExpressionUUID->"0e9f3bf7-64a4-41bd-9256-4920cf1b80c9",
 CellTags->{"Source/Reference Citation", "TemplateCellGroup"},
 CellID->720896096],
Cell[34236, 946, 496, 8, 70, "Text",ExpressionUUID->"e1e88309-a56b-4abb-afa4-f2bcac9506c2",
 CellTags->"TabNext",
 CellID->343081869]
}, Open  ]],
Cell[CellGroupData[{
Cell[34769, 959, 661, 20, 70, "Subsection",ExpressionUUID->"dd6fe479-ae70-482d-9904-d044ccbbb8ef",
 CellTags->{"Links", "TemplateCellGroup"},
 CellID->282884713],
Cell[35433, 981, 485, 8, 70, "Item",ExpressionUUID->"b2c56e7d-b35e-405e-b0c8-0b714d79cbb0",
 CellTags->"TabNext",
 CellID->485448166]
}, Open  ]],
Cell[CellGroupData[{
Cell[35955, 994, 836, 22, 70, "Subsection",ExpressionUUID->"56b3d7c0-6e13-44f9-a328-4527edf5ece8",
 CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"},
 CellID->899735658],
Cell[CellGroupData[{
Cell[36816, 1020, 129, 4, 70, "Input",ExpressionUUID->"052eafe1-7a34-4210-b9ac-c60526d86870",
 CellID->667877521],
Cell[36948, 1026, 93, 3, 70, "Output",ExpressionUUID->"f03bd015-2a4f-42a8-a143-59dd63081392",
 CellID->993233288]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[37102, 1036, 131, 3, 53, "Section",ExpressionUUID->"b060eaab-d19e-4c05-8ac2-410a37bb2667",
 CellTags->{"Author Notes", "TemplateCellGroup"},
 CellID->871584409],
Cell[37236, 1041, 509, 8, 34, "Text",ExpressionUUID->"a1a45318-5be9-4b54-b696-1fb58cfc719c",
 CellTags->"TabNext",
 CellID->567921317]
}, Open  ]],
Cell[CellGroupData[{
Cell[37782, 1054, 766, 21, 67, "Section",ExpressionUUID->"8dfe6dd0-10cb-4ef0-a13a-9b941133c627",
 CellTags->{"Submission Notes", "TemplateCellGroup"},
 CellID->22658912],
Cell[38551, 1077, 495, 8, 34, "Text",ExpressionUUID->"a11d7bdd-cd84-4ae3-b0be-445b17151ed8",
 CellTags->"TabNext",
 CellID->920818074]
}, Open  ]]
}, Open  ]]
}
]
*)

